Add handler to produce a proper backtrace on error

[videosite.git] / videosite-irssi.pl

diff --git a/videosite-irssi.pl b/videosite-irssi.pl
index 2e5a0ec..86e370d 100644 (file)
--- a/videosite-irssi.pl
+++ b/videosite-irssi.pl
@@ -9,6 +9,9 @@ use File::Spec;
 use Module::Load;
 use XML::Simple;
 use JSON -support_by_pp;
+use Carp;
+
+$SIG{ __DIE__ } = sub { Carp::confess( @_ ) };
 
 #
 # List of foreground colors. This list is not complete, it just