More fixes to Match objects.

rakudo · Apr 21, 2009 · 6ea0aa1 · 6ea0aa1
1 parent e31a6f8
commit 6ea0aa1
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 7 deletions.
diff --git a/src/classes/Code.pir b/src/classes/Code.pir
@@ -70,7 +70,8 @@ for executable objects.
     push_eh not_regex
     $P0 = getinterp
     $P1 = $P0['lexpad';1]
-    $P1['$/'] = match
+    $P2 = new 'Perl6Scalar', match
+    $P1['$/'] = $P2
   not_regex:
     .return (match)
 .end

diff --git a/src/classes/Match.pir b/src/classes/Match.pir
@@ -34,17 +34,21 @@ properly delegate to the underlying Capture PMC.
 
 =cut
 
-.sub 'hash' :method
+.sub '' :method('item')
+    .return (self)
+.end
+
+.sub '' :method('hash')
     $P0 = getattribute self, ['Capture'], 'proxy'
     $P1 = $P0.'hash'()
     .return ($P1)
 .end
 
-#.sub 'list' :method
-#    $P0 = getattribute self, ['Capture'], 'proxy'
-#    $P1 = $P0.'list'()
-#    .return ($P1)
-#.end
+.sub '' :method('list')
+    $P0 = getattribute self, ['Capture'], 'proxy'
+    $P1 = $P0.'list'()
+    .return ($P1)
+.end
 
 
 =item of