From: Debian BTS <debbugs@rietz>
Date: Tue, 19 Jun 2007 14:31:45 +0000 (+0000)
Subject: merge changes from dla source tree
X-Git-Tag: release/2.6.0~545
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6e18b4a70988e8e98f1e1af86767963b25b7dabe;hp=00ee0147756121b6feeff5fa9d067d03e987e73e;p=debbugs.git

merge changes from dla source tree
---

diff --git a/Debbugs/Common.pm b/Debbugs/Common.pm
index 4f36cb1..4ef98f6 100644
--- a/Debbugs/Common.pm
+++ b/Debbugs/Common.pm
@@ -367,7 +367,7 @@ sub lockpid {
 	  unlink $pidfile or
 	       die "Unable to unlink stale pidfile $pidfile $!";
      }
-     my $pidfh = IO::File->new($pidfile), 'w' or
+     my $pidfh = IO::File->new($pidfile,'w') or
 	  die "Unable to open $pidfile for writing: $!";
      print {$pidfh} $$ or die "Unable to write to $pidfile $!";
      close $pidfh or die "Unable to close $pidfile $!";
diff --git a/scripts/expire.in b/scripts/expire.in
index 36781bc..1b27dce 100755
--- a/scripts/expire.in
+++ b/scripts/expire.in
@@ -90,24 +90,26 @@ foreach my $dir (@dirs) {
 my $bug;
 my $errors=0;
 our $exit_now = 0;
-$SIG{INT} = sub {$exit_now=1;};
 #process each bug (ie, status file)
 my @bugs_to_archive = ();
-for my $bug (@list))) {
+for my $bug (@list) {
      # Weeeee.
      print "Examining $bug\n" if $verbose;
      next unless bug_archiveable(bug=>$bug);
      push @bugs_to_archive,$bug;
 }
 
+$SIG{INT} = sub {$exit_now=1;};
 # At this point we want to block control
 if (not lockpid($config{spool_dir}.'/lock/expire.pid')) {
      exit 1;
 }
 # We'll also double check that the bug can be archived
 for my $bug (@bugs_to_archive) {
+     last if $exit_now;
      print "Reexamining $bug\n" if $verbose;
      next unless bug_archiveable(bug=>$bug);
+     last if $exit_now;
      print "Bug $bug can be archived: " if $verbose;
      eval {
 	  bug_archive(bug=>$bug,
@@ -121,7 +123,7 @@ for my $bug (@bugs_to_archive) {
      }
      last if $exit_now;
 }
-unlink($config{spool_dir}.'/lock/expire.pid')
+unlink($config{spool_dir}.'/lock/expire.pid');
 
 
 exit $errors;