From 7c05251f6ce40f1791754f5dbb4a9fe024ef94f2 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 21 Mar 2012 11:45:21 -0700
Subject: [PATCH] output more debugging information while debug is set

---
 Debbugs/Control.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index 924e7d4..5285ebd 100644
--- a/Debbugs/Control.pm
+++ b/Debbugs/Control.pm
@@ -3060,7 +3060,6 @@ sub bug_archive {
 	  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 @@ sub __begin_control {
 			     );
     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} Dumper((caller => [caller(1)],param => \%param))."\n";
     $lockhash = $param{locks} if exists $param{locks};
     my @data = ();
     my $old_die = $SIG{__DIE__};
-- 
2.39.2