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

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

From:
jonathan
Date:
December 9, 2008 04:14
Subject:
[svn:parrot] r33704 - trunk/languages/perl6/src/classes
Message ID:
20081209121424.51C62CB9AF@x12.develooper.com
Author: jonathan
Date: Tue Dec  9 04:14:22 2008
New Revision: 33704

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

Log:
[rakudo] Update calls to readline for updated Parrot IO. Patch courtesy of bacek++.

Modified: trunk/languages/perl6/src/classes/IO.pir
==============================================================================
--- trunk/languages/perl6/src/classes/IO.pir	(original)
+++ trunk/languages/perl6/src/classes/IO.pir	Tue Dec  9 04:14:22 2008
@@ -87,7 +87,7 @@
 .sub 'readline' :method
     .local pmc PIO
     PIO = getattribute self, "$!PIO"
-    $P0 = PIO.'readline'('')
+    $P0 = PIO.'readline'()
     .return ($P0)
 .end
 
@@ -197,7 +197,7 @@
     .local pmc pio
     $P0 = getattribute self, "$!IO"
     pio = getattribute $P0, "$!PIO"
-    $P0 = pio.'readline'("")
+    $P0 = pio.'readline'()
     .return($P0)
 .end
 



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