Make &-sigiled variables act like scalars also (they don't flatten).

rakudo · Feb 27, 2010 · 43e22db · 43e22db
1 parent 7680ab4
commit 43e22db
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -769,7 +769,7 @@ sub declare_variable($/, $past, $sigil, $twigil, $desigilname, $trait_list) {
         my $vivipast := PAST::Op.new( $cont, 'rw', $true, :pirop('setprop'));
 
         # If it's a scalar, mark it as scalar (non-flattening)
-        if $sigil eq '$' {
+        if $sigil eq '$' || $sigil eq '&' {
             $vivipast := PAST::Op.new($vivipast,'scalar',$true,:pirop('setprop'));
         }