Make sure &no::such doesn't give back a Null PMC.

rakudo · Jul 16, 2010 · dd8d5d7 · dd8d5d7
1 parent a63b5c5
commit dd8d5d7
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -819,8 +819,15 @@ sub make_variable($/, $name) {
             $past.viviself( sigiltype( $<sigil> ) );
             $past.unshift(PAST::Var.new( :name('self'), :scope('lexical') ));
         }
-        elsif $<sigil> eq '&' && !@name {
-            $past := PAST::Op.new(:pirop('find_sub_not_null__Ps'), $past.name);
+        elsif $<sigil> eq '&' {
+            if !@name {
+                $past := PAST::Op.new(:pirop('find_sub_not_null__Ps'), $past.name);
+            }
+            else {
+                $past.viviself(PAST::Var.new(
+                    :namespace(''), :name('Code'), :scope('package')
+                ));
+            }
         }
     }
     $past