X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=tests%2Ftstunt%2FDpkg%2FChangelog%2FParse.pm;h=d69b7dfe247b9ee3a9280cf3e112f0534684d551;hp=89b5e577de868ba8b1ac270cf681cdded699725f;hb=92e02c105c5b673502689ff4785ef54002b49a1b;hpb=537c0a24ac667a7996e726fabfb645eb91d2b583

diff --git a/tests/tstunt/Dpkg/Changelog/Parse.pm b/tests/tstunt/Dpkg/Changelog/Parse.pm
index 89b5e577..d69b7dfe 100644
--- 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;