Fix for $<a>=[ <b>+ ] (masak)++

sorear · Dec 29, 2011 · 68f80b8 · 68f80b8
1 parent fd3c735
commit 68f80b8
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 0 deletions.
diff --git a/src/niecza b/src/niecza
@@ -25,6 +25,20 @@ use STD;
 # }
 # }
 
+augment class RxOp::Capturing {
+    method used_caps() {
+        my %h = map { ($_ => $*in_quant ?? 2 !! 1) }, @$.captures;
+
+        for @$.zyg -> $k {
+            for $k.used_caps.pairs -> $p {
+                %h{$p.key} = (%h{$p.key} // 0) + $p.value;
+            }
+        }
+
+        %h
+    }
+}
+
 augment class Op::ImmedForLoop {
     method code_labelled($body, $l) {
         my $id = ::GLOBAL::NieczaActions.genid;

diff --git a/test3.pl b/test3.pl
@@ -34,3 +34,9 @@
     "/hello/bug" ~~ $reg;
     is $/<hello>[0], 'bug', '<foo=$bar> works';
 }
+
+# http://irclog.perlgeek.de/perl6/2011-12-29#i_4894154
+{
+    "ab" ~~ / $<a>=[ <alpha>+ ] /;
+    is $<alpha>[1], "b", "<foo>+ inside string capture works";
+}