Author: pmichaud
Date: Mon Dec 22 14:41:35 2008
New Revision: 34260
Modified:
trunk/languages/perl6/src/classes/Whatever.pir
Log:
[rakudo]: Add .perl to Whatever.
Modified: trunk/languages/perl6/src/classes/Whatever.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Whatever.pir (original)
+++ trunk/languages/perl6/src/classes/Whatever.pir Mon Dec 22 14:41:35 2008
@@ -26,6 +26,10 @@
.return ($P0)
.end
+.sub 'perl' :method
+ .return ('*')
+.end
+
.sub '' :vtable('get_integer') :method
$P0 = get_global '$!slice'
$I0 = $P0
