5 # $ time dpkg-parsechangelog >/dev/null
10 # $ time ~/things/Dgit/dgit/tests/tstunt/dpkg-parsechangelog >/dev/null
17 my $infile = "debian/changelog";
19 if (@ARGV && $ARGV[0] =~ s/^-l//) {
20 $infile = shift @ARGV;
26 open C, $infile or die $!;
29 m/^(\S+) \(([^()]+)\) (\S+)\; urgency=(\S+)$/ or die "$!, $_ ?";
30 print <<END or die $!;
42 if (m/^ -- ([^<>]+\<\S+\>) (\w[^<>]+\w)$/) {
43 print <<END or die $!;
48 } elsif (m/^ --\s*$/) {
53 print " .\n" x $blanks or die $!;
55 print " $_" or die $!;