be a bit less wrong about void context detection

still does not work at all :(
rakudo · Feb 16, 2013 · f41f314 · f41f314
1 parent a10db62
commit f41f314
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Optimizer.pm b/src/Perl6/Optimizer.pm
@@ -551,7 +551,7 @@ class Perl6::Optimizer {
         while $i < +@($node) {
             my $outer_void := $*VOID_CONTEXT;
             unless $skip_selectors && $i % 2 {
-                my $*VOID_CONTEXT := $outer_void || $i != $r;
+                my $*VOID_CONTEXT := $outer_void || ($i != -1 && $i != $r);
                 my $visit := $node[$i];
                 if nqp::istype($visit, QAST::Op) {
                     $node[$i] := self.visit_op($visit)