Better internal op lookup for Xop and Zop.

rakudo · Mar 19, 2010 · 9affb78 · 9affb78
1 parent 1e9aa08
commit 9affb78
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -1940,11 +1940,13 @@ method infixish($/) {
         else {
             if $metaop eq 'X' {
                 make PAST::Op.new( :name("&crosswith"), :pasttype('call'),
-                                   PAST::Var.new( :name($base_opsub), :scope('package') ) );
+                                   PAST::Op.new( :pirop('find_sub_not_null__Ps'),
+                                                 $base_opsub ) );
             }
             if $metaop eq 'Z' {
                 make PAST::Op.new( :name("&zipwith"), :pasttype('call'),
-                                   PAST::Var.new( :name($base_opsub), :scope('package') ) );
+                                   PAST::Op.new( :pirop('find_sub_not_null__Ps'),
+                                                 $base_opsub ) );
             }
         }
     }