From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 6 Aug 2010 06:31:05 +0000 (-0400)
Subject: fix logfh call
X-Git-Tag: release/2.6.0~415^2~24
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=8b4e1a9b732fe0d25d18d3fca592d9209ccbf6e1

fix logfh call
---

diff --git a/scripts/process b/scripts/process
index 0dbb3b2..4f7d15a 100755
--- a/scripts/process
+++ b/scripts/process
@@ -999,7 +999,7 @@ sub sendmessage {
 
     my $hash = get_hashname($ref);
     #save email to the log
-    my $logfh = IO::File->new("db-h/${hash}/${ref}.log",'w') or
+    my $logfh = IO::File->new(">>db-h/${hash}/${ref}.log") or
 	die "opening db-h/$hash/${ref}.log: $!";
     write_log_records(logfh => $logfh,
 		      records => {text => stripbccs($msg),