<!!{ }> blocks should create Bool context

sorear · Oct 24, 2010 · 9895e91 · 9895e91
1 parent 1e0277e
commit 9895e91
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/RxOp.pm b/src/RxOp.pm
@@ -796,8 +796,8 @@ use CgOp;
     sub code {
         my ($self, $body) = @_;
         CgOp::ncgoto('backtrack', CgOp::unbox('bool', CgOp::fetch(
-                    CgOp::subcall(CgOp::fetch($self->block->cgop($body)),
-            CgOp::newscalar(CgOp::rxcall("MakeCursor"))))));
+                    CgOp::methodcall(CgOp::subcall(CgOp::fetch($self->block->cgop($body)),
+            CgOp::newscalar(CgOp::rxcall("MakeCursor"))), "Bool"))));
     }
 
     sub lad {