Permalink
Browse files

Fix IO::Socket::INET.lines - now with actual looping

  • Loading branch information...
gerdr committed Mar 12, 2013
1 parent 7a313c0 commit f54e210173db22b605ccb8449a4bc0f33da53a01
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/core/IO/Socket/INET.pm
@@ -113,7 +113,9 @@ my class IO::Socket::INET does IO::Socket {
}
method lines() {
- gather { take self.get() };
+ gather while (my $line = self.get()).defined {
+ take $line;
+ }
}
method accept() {

0 comments on commit f54e210

Please sign in to comment.