develooper Front page | perl.cvs.parrot | Postings from November 2008

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

From:
pmichaud
Date:
November 13, 2008 13:50
Subject:
[svn:parrot] r32628 - trunk/languages/perl6/src/classes
Message ID:
20081113215007.0336BCB9AF@x12.develooper.com
Author: pmichaud
Date: Thu Nov 13 13:50:06 2008
New Revision: 32628

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

Log:
[rakudo]:  Encourage Parrot String to become Rakudo Str *inplace*.


Modified: trunk/languages/perl6/src/classes/Str.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Str.pir	(original)
+++ trunk/languages/perl6/src/classes/Str.pir	Thu Nov 13 13:50:06 2008
@@ -37,7 +37,8 @@
 .sub 'Scalar' :method
     $P0 = new 'Str'
     assign $P0, self
-    .return ($P0)
+    copy self, $P0
+    .return (self)
 .end
 
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About