use Data::Dumper->Dump in test_control_command

[debbugs.git] / t / lib / DebbugsTest.pm

diff --git a/t/lib/DebbugsTest.pm b/t/lib/DebbugsTest.pm
index 753a542c01b4acd4786965cc832247991606efa8..a336bc695af985f1b350745fb03e0f58f3875ade 100644 (file)
--- a/t/lib/DebbugsTest.pm
+++ b/t/lib/DebbugsTest.pm
@@ -275,7 +275,7 @@ EOF
                  (exists $control_command->{bug}?$control_command->{bug}:1).
                  " $command"
                 )
-           or fail(Dumper($status));
+           or fail(Data::Dumper->Dump([$status],[qw(status)]));
     }
 }