Regexes capture returns

sorear · Oct 14, 2010 · dc83727 · dc83727
1 parent b6f56c0
commit dc83727
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/Niecza/Actions.pm b/src/Niecza/Actions.pm
@@ -385,6 +385,7 @@ sub regex_def { my ($cl, $M) = @_;
         proto_too => ($scope eq 'has' ? $unsymtext : undef),
         body => Body->new(
             ltm   => $lad,
+            returnable => 1,
             class => 'Regex',
             type  => 'regex',
             signature => $sig->for_regex,

diff --git a/src/RxOp.pm b/src/RxOp.pm
@@ -617,7 +617,7 @@ use CgOp;
     extends 'RxOp';
 
     has block => (isa => 'Op', is => 'ro', required => 1);
-    sub opzyg { $_->block }
+    sub opzyg { $_[0]->block }
 
     sub code {
         my ($self, $body) = @_;