update debugging functions

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index 5285ebdde4540b38eb78565837b3bedf4ef46207..80e0c24156687296948ef68ac197f438f4c9d376 100644 (file)
--- 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__};