diff options
| author | Ailin Nemui | 2017-03-14 23:08:11 +0100 |
|---|---|---|
| committer | Ailin Nemui | 2017-03-14 23:27:30 +0100 |
| commit | 2ea55586c7a5a90b30a9e5b7c40da5b95bc046d7 (patch) | |
| tree | 92e02471a9056b1fc94fba2b5fcad339f1abec3a | |
| parent | c5c2ab0248abe9db2e45e65592d18d154e5e8102 (diff) | |
| download | scripts.irssi.org-2ea55586c7a5a90b30a9e5b7c40da5b95bc046d7.tar.bz2 | |
throw error in case of failure
| -rw-r--r-- | _testing/_irssi_test.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/_testing/_irssi_test.pl b/_testing/_irssi_test.pl index f1eb998..e31a184 100644 --- a/_testing/_irssi_test.pl +++ b/_testing/_irssi_test.pl @@ -29,7 +29,8 @@ require Encode; # This is an ugly hack to be `lax' about the encoding. We try to # read everything as UTF-8 regardless of declared file encoding # and fall back to Latin-1. - my $orig = YAML::Tiny->can("_has_internal_string_value"); + my $orig = YAML::Tiny->can("_has_internal_string_value") || die("Error in ".__PACKAGE__); + no warnings 'redefine'; *YAML::Tiny::_has_internal_string_value = sub { my $ret = $orig->(@_); use bytes; |