Commit to mainline by don@debian.org -- merge changes from dla source branch

[Debbugs Maintainers]

------------------------------------------------------------
revno: 937 [merge]
committer: Debian BTS <debbugs@busoni>
branch nick: mainline
timestamp: Wed 2012-03-21 18:49:08 +0000
message:
  merge changes from dla source branch
------------------------------------------------------------
Use --include-merges or -n0 to see merged revisions.

=== modified file 'Debbugs/Control.pm'
--- Debbugs/Control.pm  2012-03-20 21:22:10 +0000
+++ Debbugs/Control.pm  2012-03-21 18:49:07 +0000
@@ -3060,7 +3060,6 @@
          print {$transcript} "Bug $param{bug} cannot be archived\n";
          die "Bug $param{bug} cannot be archived";
      }
-     print {$debug} "$param{bug} considering\n";
      if (not $param{archive_unarchived} and
         not exists $data[0]{unarchived}
        ) {
@@ -3574,7 +3573,8 @@
                             );
     my $new_locks;
     my ($debug,$transcript) = __handle_debug_transcript(@_);
-    print {$debug} "$param{bug} considering\n";
+    print {$debug} "considering bug $param{bug} for ".(exists 
$param{command}?$param{command}:scalar caller())."\n";
+    print {$debug} Data::Dumper->Dump([caller(1),\%param],[qw(caller 
param)])."\n";
     $lockhash = $param{locks} if exists $param{locks};
     my @data = ();
     my $old_die = $SIG{__DIE__};