summaryrefslogtreecommitdiffstats
path: root/scripts/showhilight.pl
diff options
context:
space:
mode:
authorObfuscoder2014-10-24 23:01:30 +0200
committerObfuscoder2014-10-24 23:01:30 +0200
commit55e10f5aeb6d0559518623a432263d4a73d7614b (patch)
treec8125ac40ada1411c240cd68d6535d532849e631 /scripts/showhilight.pl
parentff9a44047a299bce4995c22fd6f15851e1b065ee (diff)
downloadscripts.irssi.org-55e10f5aeb6d0559518623a432263d4a73d7614b.tar.bz2
Fix perlcritic issues for all scripts starting with s to z
Diffstat (limited to 'scripts/showhilight.pl')
-rw-r--r--scripts/showhilight.pl3
1 files changed, 2 insertions, 1 deletions
diff --git a/scripts/showhilight.pl b/scripts/showhilight.pl
index 6ff00ad..4619f78 100644
--- a/scripts/showhilight.pl
+++ b/scripts/showhilight.pl
@@ -1,5 +1,6 @@
# Print hilighted messages with MSGLEVEL_PUBLIC to active window
# for irssi 0.7.99 by Paweł 'Styx' Chuchmała based on hilightwin.pl by Timo Sirainen
+use strict;
use Irssi;
use vars qw($VERSION %IRSSI);
$VERSION = "0.1";
@@ -21,7 +22,7 @@ sub sig_printtext {
if (($dest->{level} & MSGLEVEL_HILIGHT) && ($dest->{level} & MSGLEVEL_PUBLIC) &&
($window->{refnum} != $dest->{window}->{refnum}) && ($dest->{level} & MSGLEVEL_NOHILIGHT) == 0) {
- $text = $dest->{target}.":%K[".Irssi::settings_get_str(hilight_color).$dest->{window}->{refnum}."%K]:".$text;
+ $text = $dest->{target}.":%K[".Irssi::settings_get_str('hilight_color').$dest->{window}->{refnum}."%K]:".$text;
$window->print($text, MSGLEVEL_CLIENTCRAP);
}