X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Fprocess;h=40bc1fccc2edb0597672c09c9366be9a27872369;hb=0f4e5e360aa0f61856d1bc0749c8dbb9ff4e5297;hp=05ade0aa01c464c08675ed03adbeb0bf69a6689f;hpb=2ed69da39ae664afb88d038fc7f42090562cede2;p=debbugs.git

diff --git a/scripts/process b/scripts/process
index 05ade0a..40bc1fc 100755
--- a/scripts/process
+++ b/scripts/process
@@ -440,8 +440,12 @@ if ($codeletter eq 'D' || $codeletter eq 'F')
 	writebug($ref, $data);
 
 	my $hash = get_hashname($ref);
-        open(O,"db-h/$hash/$ref.report") || die "read original report: $!";
-        my $orig_report= join('',<O>); close(O);
+	my $orig_report_fh = IO::File->new("db-h/$hash/$ref.report") or
+	    die "Unable to read original report: $!";
+	my $orig_report;
+	{ local $/; $orig_report = <$orig_report_fh>;}
+	close($orig_report_fh) or
+	    die "Unable to close original report filehandle: $!";
         if ($codeletter eq 'F') {
 	    &htmllog("Reply","sent",$replyto,"You have marked $gBug as forwarded.");
             &sendmessage(create_mime_message(