From: Don Armstrong Date: Wed, 9 Aug 2017 21:33:39 +0000 (-0700) Subject: use scalar IO::InnerFile::getline to work around an InnerFile bug X-Git-Tag: release/2.6.0~79 X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=4ad8475827b40cc70b38e68a568ca5635096a860 use scalar IO::InnerFile::getline to work around an InnerFile bug --- diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi index 7d3911a..2202ca0 100755 --- a/cgi/bugreport.cgi +++ b/cgi/bugreport.cgi @@ -274,8 +274,8 @@ END next if @records > 1 and $spam->is_spam($msg_id); my @lines; if ($record->{inner_file}) { - push @lines, $record->{fh}->getline; - push @lines, $record->{fh}->getline; + push @lines, scalar $record->{fh}->getline; + push @lines, scalar $record->{fh}->getline; chomp $lines[0]; chomp $lines[1]; } else {