Author: jonathan
Date: Tue May 6 04:00:41 2008
New Revision: 27339
Modified:
trunk/languages/perl6/src/classes/Grammar.pir
Log:
[rakudo] Smart-matching against a grammar should set $/.
Modified: trunk/languages/perl6/src/classes/Grammar.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Grammar.pir (original)
+++ trunk/languages/perl6/src/classes/Grammar.pir Tue May 6 04:00:41 2008
@@ -36,7 +36,12 @@
push_eh no_TOP
TOP = find_method self, "TOP"
pop_eh
- .return TOP(topic)
+ .local pmc match
+ match = TOP(topic)
+ $P0 = getinterp
+ $P1 = $P0['lexpad';2]
+ $P1['$/'] = match
+ .return(match)
no_TOP:
'die'("The grammar has no TOP rule to invoke.")
