Fix Cursor.parse to return a Match object.

perl6 · Oct 16, 2009 · 3095780 · 3095780
1 parent c381a19
commit 3095780
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/Regex/Cursor.pir b/src/Regex/Cursor.pir
@@ -146,10 +146,11 @@ If C<regex> is omitted, then use the C<TOP> rule for the grammar.
     regex = find_method self, 'TOP'
   regex_done:
 
-    .local pmc cur
+    .local pmc cur, match
     cur = self.'!cursor_init'(target, options :flat :named)
     cur = cur.regex()
-    .return (cur)
+    match = cur.'MATCH'()
+    .return (match)
 .end