develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33692 - branches/assign/languages/perl6/src/classes

From:
pmichaud
Date:
December 8, 2008 20:11
Subject:
[svn:parrot] r33692 - branches/assign/languages/perl6/src/classes
Message ID:
20081209041131.6F4A5CB9AF@x12.develooper.com
Author: pmichaud
Date: Mon Dec  8 20:11:30 2008
New Revision: 33692

Modified:
   branches/assign/languages/perl6/src/classes/Match.pir

Log:
[rakudo]:  Match does Positional.


Modified: branches/assign/languages/perl6/src/classes/Match.pir
==============================================================================
--- branches/assign/languages/perl6/src/classes/Match.pir	(original)
+++ branches/assign/languages/perl6/src/classes/Match.pir	Mon Dec  8 20:11:30 2008
@@ -31,6 +31,11 @@
 
     # Also install Match proto in our HLL namespace.
     set_hll_global 'Match', $P0
+
+    .local pmc p6meta
+    p6meta = get_hll_global ['Perl6Object'], '$!P6META'
+    $P1 = get_hll_global 'Positional'
+    p6meta.'add_role'($P1, 'to'=>$P0)
 .end
 
 #



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About