Ensure that blocks embedded in strings are embedded with the return v…

…alue, not the name of the block.
cardinal · Jul 23, 2009 · f154a71 · f154a71
1 parent db1ff47
commit f154a71
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 5 deletions.
diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -832,10 +832,12 @@ method quote_term($/, $key) {
         $past := $<variable>.ast();
     }
     elsif ($key eq 'do_block') {
-        $past := $<do_block>.ast();
-        if $past.WHAT() eq 'Block' {
-            $past.blocktype('immediate');
+        my $block := $<do_block>.ast();
+        if $block.WHAT() eq 'Block' {
+            $block.blocktype('immediate');
         }
+        $past := PAST::Op.new(:pasttype('call'));
+        $past.push($block);
     }
     make $past;
 }

diff --git a/t/00-sanity.t b/t/00-sanity.t
@@ -11,8 +11,7 @@ puts "ok 2" ; puts "ok 3"
 
 print "ok "; print 1 + 3; print "\n"
 
-puts "not ok 5 # SKIP - Block interpretation is broken in strings." # skip
-#print "ok #{ 2 * 2 + 1 }\n"
+print "ok #{ 2 * 2 + 1 }\n"