diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2016-10-08 16:48:29 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2016-10-08 19:24:10 +0100 |
commit | 7d64947564587518ec007066ac76e0373cb79da8 (patch) | |
tree | a1358d7a9ec0b49e69af87a1eac55e9e3089fa62 /tests/tstunt/Dpkg | |
parent | 7fd4808a58916386f5acab86877cb6c7f7d61c86 (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')
-rw-r--r-- | tests/tstunt/Dpkg/Changelog/Parse.pm | 4 |
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; |