Allow cursors to return things other than Regex::Match.

perl6 · Oct 19, 2009 · 875be8a · 875be8a
1 parent 557d3bf
commit 875be8a
Show file tree

Hide file tree

Showing 3 changed files with 481 additions and 760 deletions.
diff --git a/src/Regex/Cursor.pir b/src/Regex/Cursor.pir
@@ -46,8 +46,9 @@ for the Cursor if one hasn't been created yet.
     .local pmc match
     match = getattribute self, '$!match'
     if null match goto match_make
-    $I0 = isa match, ['Regex';'Match']
-    if $I0 goto match_done
+    $P0 = get_global '$!TRUE'
+    $I0 = issame match, $P0
+    unless $I0 goto match_done
 
     # First, create a Match object and bind it
   match_make: