diff options
| author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2016-10-15 21:06:02 +0100 |
|---|---|---|
| committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2016-10-15 21:06:52 +0100 |
| commit | 92e02c105c5b673502689ff4785ef54002b49a1b (patch) | |
| tree | 3e8e92d13c882ac6daaa619c7df2cfb92ebd09bb /tests/tstunt/Dpkg/Changelog | |
| parent | 537c0a24ac667a7996e726fabfb645eb91d2b583 (diff) | |
Test suite: stunt parsechangelog: Some commented-out debugging
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'tests/tstunt/Dpkg/Changelog')
| -rw-r--r-- | tests/tstunt/Dpkg/Changelog/Parse.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/tstunt/Dpkg/Changelog/Parse.pm b/tests/tstunt/Dpkg/Changelog/Parse.pm index 89b5e57..d69b7df 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; |