All method calls are wrapped up in calls to perl6ize_type so we need …

…to make sure we descend into them also.
rakudo · Feb 18, 2012 · e06236d · e06236d
1 parent 7ddf5ab
commit e06236d
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/Perl6/Sinker.pm b/src/Perl6/Sinker.pm
@@ -53,7 +53,11 @@ class Perl6::Sinker {
                 # TODO: find a more efficient way to create an empty parcel
                 PAST::Op.new(:name('&infix:<,>')),
             );
-        } else {
+        }
+        elsif $op.pirop eq 'perl6ize_type PP' {
+            self.visit_children($op)
+        }
+        else {
             $op;
         }
     }