summaryrefslogtreecommitdiff
path: root/tests/tstunt/Dpkg/Changelog
diff options
context:
space:
mode:
authorIan Jackson <ijackson@chiark.greenend.org.uk>2016-10-08 16:48:29 +0100
committerIan Jackson <ijackson@chiark.greenend.org.uk>2016-10-08 19:24:10 +0100
commit7d64947564587518ec007066ac76e0373cb79da8 (patch)
treea1358d7a9ec0b49e69af87a1eac55e9e3089fa62 /tests/tstunt/Dpkg/Changelog
parent7fd4808a58916386f5acab86877cb6c7f7d61c86 (diff)
Test suite: stunt parsechangelog: fallback
Fall back to system implementation if command line options are requested that we don't understand. This is a bit fiddly - we need to strip the stunt entry out of PATH and also out of PERLLIB. Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'tests/tstunt/Dpkg/Changelog')
-rw-r--r--tests/tstunt/Dpkg/Changelog/Parse.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/tstunt/Dpkg/Changelog/Parse.pm b/tests/tstunt/Dpkg/Changelog/Parse.pm
index 4d797af..677580b 100644
--- a/tests/tstunt/Dpkg/Changelog/Parse.pm
+++ b/tests/tstunt/Dpkg/Changelog/Parse.pm
@@ -33,6 +33,8 @@ use Dpkg::Control::Changelog;
use base qw(Exporter);
our @EXPORT = qw(changelog_parse);
+die +(join " ", %ENV)." ?" if $ENV{'DGIT_NO_TSTUNT_CLPARSE'};
+
sub changelog_parse {
my (%options) = @_; # ignored
@@ -47,3 +49,5 @@ sub changelog_parse {
return $fields;
}
+
+1;