my $infile = "debian/changelog";
+#print STDERR ">@ARGV<\n";
+
my @orgargv = @ARGV;
if (@ARGV && $ARGV[0] =~ s/^-l//) {
Maintainer: $1
Date: $2
END
- last;
+ print "Timestamp: " or die $!;
+ exec qw(date +%s -d), $2; die $!;
} elsif (m/^ --\s*$/) {
last;
} elsif (!m/\S/) {