X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=tests%2Ftstunt%2Fdpkg-parsechangelog;h=f1e75a88fa14320ae047fbba03f8e83f8fa78769;hb=bab78c63a571a3e1b9e87acedd7e6ea40c835da2;hp=2e0360da112c2793532d752ff1bfc6944d782490;hpb=cbe483c32df06d2babbcf99d7ee947c645e7aea3;p=dgit.git

diff --git a/tests/tstunt/dpkg-parsechangelog b/tests/tstunt/dpkg-parsechangelog
index 2e0360da..f1e75a88 100755
--- a/tests/tstunt/dpkg-parsechangelog
+++ b/tests/tstunt/dpkg-parsechangelog
@@ -14,10 +14,18 @@
 # sys     0m0.012s
 # $
 
+$SIG{__WARN__} = sub { die $_[0]; }; # no use of system, so we avoid #793471
+
+my $infile = "debian/changelog";
+
+if (@ARGV && $ARGV[0] =~ s/^-l//) {
+    $infile = shift @ARGV;
+}
+
 die if @ARGV;
 
 use strict;
-open C, "debian/changelog" or die $!;
+open C, $infile or die $!;
 
 $!=0; $_ = <C>;
 m/^(\S+) \(([^()]+)\) (\S+)\; urgency=(\S+)$/ or die "$!, $_ ?";