From 4ad8475827b40cc70b38e68a568ca5635096a860 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 9 Aug 2017 14:33:39 -0700
Subject: [PATCH] use scalar IO::InnerFile::getline to work around an InnerFile
 bug

---
 cgi/bugreport.cgi | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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 {
-- 
2.39.2