use scalar IO::InnerFile::getline to work around an InnerFile bug

diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi
index 7d3911a9a62f7690c8c80af21cf272c2d1767708..2202ca0cae3e9b16dbb62716931a11e5905b1a61 100755 (executable)
--- 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 {