From eb202251624f2c08e2ead494710e696832f24f90 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 21 Mar 2012 11:46:59 -0700
Subject: [PATCH] update debugging functions

---
 Debbugs/Control.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index 5285ebd..80e0c24 100644
--- a/Debbugs/Control.pm
+++ b/Debbugs/Control.pm
@@ -3574,7 +3574,7 @@ sub __begin_control {
     my $new_locks;
     my ($debug,$transcript) = __handle_debug_transcript(@_);
     print {$debug} "considering bug $param{bug} for ".(exists $param{command}?$param{command}:scalar caller())."\n";
-    print {$debug} Dumper((caller => [caller(1)],param => \%param))."\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__};
-- 
2.39.2