[perl #61212] [PATCH] Fix readline calls after merging pdd22 branch

[via RT]

# New Ticket Created by  Vasily Chekalkin 
# Please include the string:  [perl #61212]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=61212 >


Hello.

Trivial patch attached.

-- 
Bacek

commit 49d24a4d7994458b9efb3a234acad59c937298ed
Author: Vasily Chekalkin <[EMAIL PROTECTED]>
Date:   Tue Dec 9 21:54:47 2008 +1100

    Fix io.readline calls

diff --git a/languages/perl6/src/classes/IO.pir b/languages/perl6/src/classes/IO.pir
index 6dd5f28..be67b70 100644
--- a/languages/perl6/src/classes/IO.pir
+++ b/languages/perl6/src/classes/IO.pir
@@ -90,7 +90,7 @@ Reads a line from the file handle.
 .sub 'readline' :method
     .local pmc PIO
     PIO = getattribute self, "$!PIO"
-    $P0 = PIO.'readline'('')
+    $P0 = PIO.'readline'()
     .return ($P0)
 .end
 
@@ -223,7 +223,7 @@ Return the value inside this container in item context.
     .local pmc pio
     $P0 = getattribute self, "$!IO"
     pio = getattribute $P0, "$!PIO"
-    $P0 = pio.'readline'("")
+    $P0 = pio.'readline'()
     .return($P0)
 .end