[perl #75686] [PATCH] - add limit definition to lines sub

[via RT]

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


---
 src/core/IO.pm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/core/IO.pm b/src/core/IO.pm
index f426692..e270d9b 100644
--- a/src/core/IO.pm
+++ b/src/core/IO.pm
@@ -66,7 +66,7 @@ class IO is Cool {
     }
 }

-multi sub lines(IO $filehandle,
+multi sub lines(IO $filehandle, Any $limit = *,
                 :$bin = False,
                 :$enc = 'Unicode',
                 :$nl = "\n",
@@ -77,7 +77,7 @@ multi sub lines(IO $filehandle,
     fail 'Fancy newlines not supported yet' if $nl ne "\n";
     fail 'Lack of chomp not supported yet'  if !$chomp;

-    $filehandle.lines();
+    $filehandle.lines($limit);
 }

 multi sub print(Mu *...@items) { $*OUT.print(@items); }
-- 
1.7.1