Author: pmichaud
Date: Mon Dec 29 18:04:40 2008
New Revision: 34596
Modified:
branches/rvar/languages/perl6/src/classes/Object.pir
Log:
[rakudo]: Adjust Scalar method on Object.
Modified: branches/rvar/languages/perl6/src/classes/Object.pir
==============================================================================
--- branches/rvar/languages/perl6/src/classes/Object.pir (original)
+++ branches/rvar/languages/perl6/src/classes/Object.pir Mon Dec 29
18:04:40 2008
@@ -228,7 +228,7 @@
=cut
.namespace ['Perl6Object']
-.sub '' :method('Scalar') :anon
+.sub 'Scalar' :method
$I0 = isa self, 'ObjectRef'
unless $I0 goto not_ref
.return (self)
