Author: pmichaud
Date: Tue Dec 9 21:58:11 2008
New Revision: 33741
Modified:
trunk/languages/perl6/src/parser/actions.pm
Log:
[rakudo]: List assignment on my/our declarations works.
Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Tue Dec 9 21:58:11 2008
@@ -2330,7 +2330,7 @@
# the declaration evaluate to the signature object, thus allowing an
# assignment to it.
my @declare := sig_extract_declarables($/, $past);
- $past := PAST::Stmts.new($past);
+ $past := PAST::Op.new(:name('list'), :node($/) );
for @declare {
# Work out sigil and twigil.
my $sigil := substr($_, 0, 1);
@@ -2354,7 +2354,7 @@
else {
$scope := 'package';
}
- $past.unshift(PAST::Var.new(
+ $past.push(PAST::Var.new(
:name($_),
:isdecl(1),
:scope($scope),
