Match objects should have the cursor associated with them.

Raku · Jan 7, 2012 · 5d63533 · 5d63533
1 parent 3efe24b
commit 5d63533
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/QRegex/Cursor.nqp b/src/QRegex/Cursor.nqp
@@ -416,6 +416,7 @@ class NQPCursor does NQPCursorRole {
         unless pir::isa($match, 'Hash') || nqp::istype($match, NQPMatch) {
             $match := NQPMatch.new();
             nqp::bindattr(self, NQPCursor, '$!match', $match);
+            nqp::bindattr($match, NQPMatch, '$!cursor', self);
             nqp::bindattr($match, NQPMatch, '$!orig', nqp::getattr(self, NQPCursor, '$!orig'));
             nqp::bindattr_i($match, NQPMatch, '$!from', nqp::getattr_i(self, NQPCursor, '$!from'));
             nqp::bindattr_i($match, NQPMatch, '$!to', nqp::getattr_i(self, NQPCursor, '$!pos'));