Test suite: stunt parsechangelog: Some commented-out debugging

[dgit.git] / tests / tstunt / Dpkg / Changelog / Parse.pm

diff --git a/tests/tstunt/Dpkg/Changelog/Parse.pm b/tests/tstunt/Dpkg/Changelog/Parse.pm
index 89b5e577de868ba8b1ac270cf681cdded699725f..d69b7dfe247b9ee3a9280cf3e112f0534684d551 100644 (file)
--- a/tests/tstunt/Dpkg/Changelog/Parse.pm
+++ b/tests/tstunt/Dpkg/Changelog/Parse.pm
@@ -60,6 +60,9 @@ sub changelog_parse {
     my $fields = Dpkg::Control::Changelog->new();
     $fields->parse(\*P, "output of stunt changelog parser");
 
+#use Data::Dumper;
+#print STDERR "PARSE $0 ", Dumper($fields);
+
     close P or die "$! $?";
 
     return $fields;