diff options
Diffstat (limited to 'lib/Test/Harness/Iterator.pm')
| -rw-r--r-- | lib/Test/Harness/Iterator.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Test/Harness/Iterator.pm b/lib/Test/Harness/Iterator.pm index adb0727c83..00caf9e55e 100644 --- a/lib/Test/Harness/Iterator.pm +++ b/lib/Test/Harness/Iterator.pm @@ -55,6 +55,8 @@ sub new { package Test::Harness::Iterator::FH; sub next { my $fh = $_[0]->{fh}; + + # readline() doesn't work so good on 5.5.4. return scalar <$fh>; } |