summaryrefslogtreecommitdiffstats
path: root/scripts/adv_windowlist.pl
diff options
context:
space:
mode:
authorAilin Nemui2015-12-08 23:05:52 +0100
committerAilin Nemui2015-12-08 23:05:52 +0100
commit883846efc11579a182c9b3087a69be413dc6d4eb (patch)
tree2d3510c9b90e95731cac17987df5c65517a6dcc2 /scripts/adv_windowlist.pl
parent92726a9425e644f4341ae55d7342653e4d69a47f (diff)
downloadscripts.irssi.org-883846efc11579a182c9b3087a69be413dc6d4eb.tar.bz2
adv_windowlist 1.0a6
- workaround for crash due to infinite recursion in irssi's Perl error handling
Diffstat (limited to 'scripts/adv_windowlist.pl')
-rw-r--r--scripts/adv_windowlist.pl7
1 files changed, 5 insertions, 2 deletions
diff --git a/scripts/adv_windowlist.pl b/scripts/adv_windowlist.pl
index a639406..400d394 100644
--- a/scripts/adv_windowlist.pl
+++ b/scripts/adv_windowlist.pl
@@ -1,7 +1,7 @@
use strict;
use warnings;
-our $VERSION = '1.0a5'; # e03ad26d0bb6d80
+our $VERSION = '1.0a6'; # 08b7b7c2b872a05
our %IRSSI = (
authors => 'Nei',
contact => 'Nei @ anti@conference.jabber.teamidiot.de',
@@ -1443,6 +1443,7 @@ sub UNLOAD {
}
sub addPrintTextHook { # update on print text
+ return unless defined $^S;
return if $BLOCK_ALL;
return unless $print_text_activity;
return if $_[0]->{level} == 262144 and $_[0]->{target} eq ''
@@ -2358,10 +2359,12 @@ UNITCHECK
# Changelog
# =========
-# 1.0a4
+# 1.0a6
# - new awl_viewer_launch setting and an array of related settings
# - fixed regression bug /exec -interactive
# - fixed some warnings in perl 5.10 reported by kl3
+# - workaround for crash due to infinite recursion in irssi's Perl
+# error handling
#
# 0.9
# - fix endless loop in awin detection code!