Be a little more careful to ensure we do not get a last line of undef…

… (when calling IO.lines).
rakudo · Feb 7, 2010 · 9c39328 · 9c39328
1 parent a8ab00b
commit 9c39328
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -27,7 +27,10 @@ class IO {
     multi method lines($limit = *) {
         my $l = $limit ~~ Whatever ?? Inf !! $limit;
         gather while !$.eof && $l-- > 0 {
-           take $.get;
+           my $line = $.get;
+           if $line.defined {
+               take $line;
+           }
         }
     }