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

Author: particle
Date: Mon Dec  8 23:28:28 2008
New Revision: 33700

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

Log:
[rakudo] slurp('') becomes readall(); bacek++

Modified: trunk/languages/perl6/src/classes/IO.pir
==============================================================================
--- trunk/languages/perl6/src/classes/IO.pir	(original)
+++ trunk/languages/perl6/src/classes/IO.pir	Mon Dec  8 23:28:28 2008
@@ -101,7 +101,7 @@
 .sub 'slurp' :method
     .local pmc PIO
     PIO = getattribute self, "$!PIO"
-    $S0 = PIO.'slurp'('')
+    $S0 = PIO.'readall'()
     .return($S0)
 .end
 

• [svn:parrot] r33700 - trunk/languages/perl6/src/classes by particle