From: cjwatson <>
Date: Wed, 10 Aug 2005 06:09:42 +0000 (-0800)
Subject: [project @ 2005-08-09 23:09:42 by cjwatson]
X-Git-Tag: release/2.6.0~661
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0d94d0053bb6666181517e21dd7860594b91ebcd;p=debbugs.git

[project @ 2005-08-09 23:09:42 by cjwatson]
send debug output to consistent fd
---

diff --git a/scripts/expire.in b/scripts/expire.in
index 3a6b3f45..99a60c6e 100755
--- a/scripts/expire.in
+++ b/scripts/expire.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: expire.in,v 1.21 2005/08/09 23:04:43 cjwatson Exp $
+# $Id: expire.in,v 1.22 2005/08/09 23:09:42 cjwatson Exp $
 
 # Load modules and set environment
 use File::Copy;
@@ -32,9 +32,9 @@ foreach my $dir (@dirs) {
 
 #process each bug (ie, status file)
 while (length($ref=shift(@list))) {
-    print STDERR "$ref considering\n" if $debug;
+    print "$ref considering\n" if $debug;
     ($bfound, $data)= &lockreadbugmerge($ref);
-    print STDERR "$ref read $bfound\n" if $debug;
+    print "$ref read $bfound\n" if $debug;
     $bfound || next;
     print "$ref read ok (done $data->{done})\n" if $debug;
     (&unlockreadbugmerge($bfound), next) unless length($data->{done});