diff options
| author | Niels Thykier <niels@thykier.net> | 2017-10-22 21:14:39 +0000 |
|---|---|---|
| committer | Niels Thykier <niels@thykier.net> | 2017-10-22 21:14:39 +0000 |
| commit | 0f0d113f198089a4112172277be94e68c4114c27 (patch) | |
| tree | ce059228c3387e898983f43a328f7cea926a9e31 /t/Test | |
| parent | 78275a7e40db9f457de9fcf415ca7dd30909bd58 (diff) | |
| download | debhelper-0f0d113f198089a4112172277be94e68c4114c27.tar.gz | |
Test::DH: Ensure we do not call an undefined error sub
Diffstat (limited to 't/Test')
| -rw-r--r-- | t/Test/DH.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/Test/DH.pm b/t/Test/DH.pm index 5affc889..b9275cbe 100644 --- a/t/Test/DH.pm +++ b/t/Test/DH.pm @@ -16,7 +16,7 @@ use File::Basename qw(dirname); our $ROOT_DIR; BEGIN { - my $res = realpath(__FILE__) or error('Cannot resolve ' . __FILE__ . ": $!"); + my $res = realpath(__FILE__) or die('Cannot resolve ' . __FILE__ . ": $!"); $ROOT_DIR = dirname(dirname(dirname($res))); }; @@ -37,6 +37,7 @@ our @EXPORT = qw( each_compat_up_to_and_incl_subtest each_compat_subtest each_compat_from_and_above_subtest run_dh_tool uid_0_test_is_ok create_empty_file readlines + error ); our ($TEST_DH_COMPAT, $ROOT_OK, $ROOT_CMD); |