diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm index 8186a2104bb..7ad4cbacbf0 100644 --- 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 ) ); } } }