From: Ailin Nemui <redacted>
Date: Tue, 14 Mar 2017 22:08:11 +0000 (+0100)
Subject: throw error in case of failure
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=2ea55586c7a5a90b30a9e5b7c40da5b95bc046d7;p=irssi-scripts.irssi.org.git

throw error in case of failure
---

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;