add "-e" file annotation where appropriate

Raku · Feb 11, 2012 · fd864b6 · fd864b6
1 parent 2246b9d
commit fd864b6
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/HLL/Compiler.pm b/src/HLL/Compiler.pm
@@ -316,6 +316,7 @@ class HLL::Compiler {
         my $target := pir::downcase(%adverbs<target>);
         try {
             if pir::defined(%adverbs<e>) {
+                my $?FILES := '-e';
                 $result := self.eval(%adverbs<e>, '-e', |@a, |%adverbs);
                 unless $target eq '' || $target eq 'pir' {
 					self.dumper($result, $target, |%adverbs);