From 8672b2c1cde62799a0ae1fb5431ae898ad0bdab0 Mon Sep 17 00:00:00 2001 From: "Jan \"Yenya\" Kasprzak" Date: Sat, 7 May 2011 23:09:17 +0200 Subject: [PATCH] LogReader: handle EOF correctly --- SCX/LogReader.pm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/SCX/LogReader.pm b/SCX/LogReader.pm index 78d2b50..26aaaaa 100644 --- a/SCX/LogReader.pm +++ b/SCX/LogReader.pm @@ -29,7 +29,10 @@ sub get_data { my ($line, $l_time, @data); do { $line = <$fh>; - return undef if !defined $line; + if (!defined $line) { + print STDERR "End of the log file reached.\n"; + return (); + } chomp $line; $line =~ s/\A\s+//xms; @@ -37,7 +40,10 @@ sub get_data { ($l_time, @data) = split(/\s+/, $line); } while ($l_time < $self->{begin_time}); - return undef if $l_time > $self->{end_time}; + if ($l_time > $self->{end_time}) { + print STDERR "Requested end time reached.\n"; + return (); + } return ($l_time, map { hex $_ } @data); } -- 2.43.0