Fix my ($a, $, $b) = 1,2,3;

rakudo · Jul 7, 2011 · 8cb00d5 · 8cb00d5
1 parent b9db729
commit 8cb00d5
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/NOMMAP.markdown b/NOMMAP.markdown
@@ -11,7 +11,6 @@ Current fails that people are likely to encounter (no particular order):
 * regexes missing
 * is export on methods
     - should work outside the setting; note here if not
-* my ($a, $, $b) = 1,2,3;  (S03-operators/assign.t)
 * multi dispatch to .Bool seems to be borked - for example 0i.Bool does not
   call the multi in Complex.
 

diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -958,9 +958,10 @@ class Perl6::Actions is HLL::Actions {
                         $_<twigil>, $_<desigilname>, []));
                 }
                 else {
-                    $list.push(PAST::Op.new(
-                        :pirop('repr_instance_of PP'),
-                        $*ST.symbol_lookup([sigiltype($_<sigil> || '$')], $/)));
+                    $list.push($*ST.build_container_past(
+                        sigiltype($_<sigil> || '$'),
+                        $*ST.create_container_descriptor(
+                            $*ST.find_symbol(['Mu']), 1, 'anon')));
                 }
             }
             make $list;