my $infile = "debian/changelog";
+#print STDERR ">@ARGV<\n";
+
my @orgargv = @ARGV;
if (@ARGV && $ARGV[0] =~ s/^-l//) {
my @npath = grep { $_ ne $strip } @opath;
@npath != @opath or die "$0 $k ".($ENV{$k}//"(undef)")." ?";
$ENV{$k} = join ':', @npath;
+ delete $ENV{$k} if !@npath;
}
die if $ENV{'DGIT_NO_TSTUNT_CLPARSE'}++;
exec 'dpkg-parsechangelog', @orgargv;
Maintainer: $1
Date: $2
END
- last;
+ print "Timestamp: " or die $!;
+ exec qw(date +%s -d), $2; die $!;
} elsif (m/^ --\s*$/) {
last;
} elsif (!m/\S/) {