Fix bug in interactive mode introduced by @*ARGS changes.

rakudo · Jul 25, 2011 · 3c8f0b6 · 3c8f0b6
1 parent 512670d
commit 3c8f0b6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Compiler.nqp b/src/Perl6/Compiler.nqp
@@ -5,7 +5,7 @@ class Perl6::Compiler is HLL::Compiler {
     method command_eval(*@args, *%options) {
         my $hll_ns := pir::get_root_global__Ps('perl6');
         my $argiter := nqp::iterator(@args);
-        nqp::shift($argiter) unless pir::defined(%options<e>);
+        nqp::shift($argiter) if $argiter && !pir::defined(%options<e>);
         $hll_ns<$!ARGITER> := $argiter;
         my $super := pir::find_method__PPs(HLL::Compiler, 'command_eval');
         $super(self, |@args, |%options);