chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 32be2ddf86e153ef4ca7a264ed990290788e9d66..d69b7dfe247b9ee3a9280cf3e112f0534684d551 100644
(file)
--- a/
tests/tstunt/Dpkg/Changelog/Parse.pm
+++ b/
tests/tstunt/Dpkg/Changelog/Parse.pm
@@
-1,6
+1,6
@@
# -*- perl -*-
#
# -*- perl -*-
#
-# Copyright (C) 2015
Ian Jackson
+# Copyright (C) 2015
-2016
Ian Jackson
#
# Some bits stolen from the proper Dpkg::Changelog::Parse
# (from dpkg-dev 1.16.16):
#
# Some bits stolen from the proper Dpkg::Changelog::Parse
# (from dpkg-dev 1.16.16):
@@
-60,6
+60,9
@@
sub changelog_parse {
my $fields = Dpkg::Control::Changelog->new();
$fields->parse(\*P, "output of stunt changelog parser");
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;
close P or die "$! $?";
return $fields;