nicer error message of &evalfiles

Filip Sergot · Filip Sergot · commit d85df9e27bda · 2012-02-26T21:27:53.000+01:00
diff --git a/src/HLL/Compiler.pm b/src/HLL/Compiler.pm
@@ -398,11 +398,11 @@ class HLL::Compiler {
                 pir::push(@codes, $in-handle.readall($_));
                 $in-handle.close;
                 CATCH {
-                    $err := 1;
+                    $err := $_;
                 }
             }
             if $err {
-                say("Cannot open \"$_\".");
+                say($err);
                 pir::exit(1);
             }
         }

Original file line number	Diff line number	Diff line change
`@@ -398,11 +398,11 @@ class HLL::Compiler {`
`398`	`398`	`pir::push(@codes, $in-handle.readall($_));`
`399`	`399`	`$in-handle.close;`
`400`	`400`	`CATCH {`
`401`		`- $err := 1;`
	`401`	`+ $err := $_;`
`402`	`402`	`}`
`403`	`403`	`}`
`404`	`404`	`if $err {`
`405`		`- say("Cannot open \"$_\".");`
	`405`	`+ say($err);`
`406`	`406`	`pir::exit(1);`
`407`	`407`	`}`
`408`	`408`	`}`