diff options
| -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; |