From 2ea55586c7a5a90b30a9e5b7c40da5b95bc046d7 Mon Sep 17 00:00:00 2001
From: Ailin Nemui
Date: Tue, 14 Mar 2017 23:08:11 +0100
Subject: throw error in case of failure

---
 _testing/_irssi_test.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to '_testing')

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;
-- 
cgit v1.2.3