From 43e22dbe86fabe56f1a377a39e3fed627a2d6423 Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Fri, 26 Feb 2010 18:41:52 -0600
Subject: [PATCH] Make &-sigiled variables act like scalars also (they don't
 flatten).

---
 src/Perl6/Actions.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
index 1af89324000..bad00516ed2 100644
--- 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'));
         }