diff options
| author | Jari Matilainen | 2015-11-25 11:42:09 +0100 |
|---|---|---|
| committer | Jari Matilainen | 2015-11-25 11:42:09 +0100 |
| commit | 6ff89a0ac5f3fb4892081165bbe0304e688b2d39 (patch) | |
| tree | 2e17e1d82faeb18e311635a41123b90527628afb /scripts/intercept.pl | |
| parent | 4775c0a652fab0608acc57788a060f390dacea60 (diff) | |
| download | scripts.irssi.org-6ff89a0ac5f3fb4892081165bbe0304e688b2d39.tar.bz2 | |
Fixed problems reported by perlcritic
Diffstat (limited to 'scripts/intercept.pl')
| -rw-r--r-- | scripts/intercept.pl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/scripts/intercept.pl b/scripts/intercept.pl index edb882a..b798950 100644 --- a/scripts/intercept.pl +++ b/scripts/intercept.pl @@ -3,10 +3,13 @@ use strict; use warnings; use Data::Dumper; +use Carp qw( croak ); use Irssi; -our $VERSION = "0.1"; -our %IRSSI = ( +use vars qw($VERSION %IRSSI); + +$VERSION = "0.1"; +%IRSSI = ( authors => "Jari Matilainen", contact => 'vague!#irssi@freenode on irc', name => "intercept", @@ -50,7 +53,7 @@ sub load_uberprompt_failed { print "https://github.com/shabble/irssi-scripts/raw/master/" . "prompt_info/uberprompt.pl"; - die "Script Load Failed: " . join(" ", @_); + croak "Script Load Failed: " . join(" ", @_); } sub sig_send_text { |