Merge branch 'moreinput'

Raku · Mar 30, 2015 · 8f016d1 · 8f016d1
2 parents d86c3c5 + 315106c
commit 8f016d1
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/QRegex/Cursor.nqp b/src/QRegex/Cursor.nqp
@@ -48,6 +48,15 @@ role NQPCursorRole is export {
         $!regexsub := NQPMu;
     }
 
+    method !APPEND_TO_ORIG($value) {
+        my $orig := nqp::getattr($!shared, ParseShared, '$!orig');
+        $orig := $orig ~ $value;
+        nqp::bindattr($!shared, ParseShared, '$!orig', $orig);
+        my $target := nqp::getattr_s($!shared, ParseShared, '$!target');
+        $target := $target ~ $value;
+        nqp::bindattr_s($!shared, ParseShared, '$!target', $target);
+    }
+
     my $NO_CAPS := nqp::hash();
     method CAPHASH() {
         my $caps    := nqp::hash();