fix syntax error

moritz · moritz · commit 628adae6e3c4 · 2012-02-26T07:02:51.000+01:00
diff --git a/Pugs/ext/Test/lib/Test.pm b/Pugs/ext/Test/lib/Test.pm
@@ -216,7 +216,7 @@ sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export
     }
 }
 
-sub eval_lives_ok (Str $code, Str $desc = '' :$todo, :$depends) returns Bool is export {
+sub eval_lives_ok (Str $code, Str $desc = '', :$todo, :$depends) returns Bool is export {
     eval $code;
     if ($!) {
         Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$depends);

Original file line number	Diff line number	Diff line change
`@@ -216,7 +216,7 @@ sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export`
`216`	`216`	`}`
`217`	`217`	`}`
`218`	`218`
`219`		`-sub eval_lives_ok (Str $code, Str $desc = '' :$todo, :$depends) returns Bool is export {`
	`219`	`+sub eval_lives_ok (Str $code, Str $desc = '', :$todo, :$depends) returns Bool is export {`
`220`	`220`	`eval $code;`
`221`	`221`	`if ($!) {`
`222`	`222`	`Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$depends);`