Front page | perl.cvs.parrot |
Postings from January 2009
Author: pmichaud
Date: Sat Jan 10 19:55:43 2009
New Revision: 35379
Modified:
trunk/languages/perl6/src/builtins/guts.pir
Log:
[rakudo]: Adjust CALLMETHOD to work on Perl6Scalar.
Modified: trunk/languages/perl6/src/builtins/guts.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/guts.pir (original)
+++ trunk/languages/perl6/src/builtins/guts.pir Sat Jan 10 19:55:43 2009
@@ -71,7 +71,7 @@
.sub '!CALLMETHOD'
.param string method
.param pmc obj
- $I0 = isa obj, 'ObjectRef'
+ $I0 = isa obj, 'Perl6Scalar'
if $I0 goto any_method
$I0 = can obj, method
unless $I0 goto any_method