[svn:parrot] r33504 - trunk/languages/perl6/src/classes

Author: jonathan
Date: Fri Dec  5 04:06:50 2008
New Revision: 33504

Modified:
   trunk/languages/perl6/src/classes/Match.pir

Log:
[rakudo] Fix our ability to smart-match against Match (which checks the LHS is of type Match).

Modified: trunk/languages/perl6/src/classes/Match.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Match.pir	(original)
+++ trunk/languages/perl6/src/classes/Match.pir	Fri Dec  5 04:06:50 2008
@@ -28,6 +28,9 @@
 .sub '' :anon :load :init
     $P0 = get_hll_global ['PGE'], 'Match'
     $P0.'!MUTABLE'()
+
+    # Also install Match proto in our HLL namespace.
+    set_hll_global 'Match', $P0
 .end
 
 #

• [svn:parrot] r33504 - trunk/languages/perl6/src/classes by jonathan