Fix thinko in shell words post-processing.

This fixes the TODO'd tests for << foo "bar $baz" >> style things.
rakudo · Nov 9, 2012 · 9f32f0a · 9f32f0a
1 parent f81716a
commit 9f32f0a
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -5618,13 +5618,13 @@ class Perl6::QActions is HLL::Actions does STDActions {
     method postprocess_quotewords($/, $past) {
         my $result := QAST::Op.new( :op('call'), :name('&infix:<,>'), :node($/) );
         sub walk($node) {
-            if nqp::istype($node, QAST::Op) && $node.name eq '&infix:<~>' {
+            if $node<ww_atom> {
+                $result.push($node);
+            }
+            elsif nqp::istype($node, QAST::Op) && $node.name eq '&infix:<~>' {
                 walk($node[0]);
                 walk($node[1]);
             }
-            elsif $node<ww_atom> {
-                $result.push($node);
-            }
             else {
                 my $ppw := self.postprocess_words($/, $node);
                 unless nqp::istype($ppw, QAST::Stmts) && +@($ppw[0]) == 0 {