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
#
