diff options
| author | ailin-nemui | 2015-12-08 20:45:46 +0100 |
|---|---|---|
| committer | ailin-nemui | 2015-12-08 20:45:46 +0100 |
| commit | 742b70077dde2718697f0a650ff61c014079a9b7 (patch) | |
| tree | 964a316f860d9f01322a4d968ee0e32fe4af748b /scripts | |
| parent | 8ed021da54e70c912899c1a16926654b8ff1f7a4 (diff) | |
| parent | 92726a9425e644f4341ae55d7342653e4d69a47f (diff) | |
| download | scripts.irssi.org-742b70077dde2718697f0a650ff61c014079a9b7.tar.bz2 | |
Merge pull request #203 from ailin-nemui/awl
adv_windowlist 1.0a5
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/adv_windowlist.pl | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/scripts/adv_windowlist.pl b/scripts/adv_windowlist.pl index 60fe42b..a639406 100644 --- a/scripts/adv_windowlist.pl +++ b/scripts/adv_windowlist.pl @@ -1,7 +1,7 @@ use strict; use warnings; -our $VERSION = '1.0a4'; # add219076dbc8f6 +our $VERSION = '1.0a5'; # e03ad26d0bb6d80 our %IRSSI = ( authors => 'Nei', contact => 'Nei @ anti@conference.jabber.teamidiot.de', @@ -280,6 +280,15 @@ use List::Util qw(min max reduce); use Hash::Util qw(lock_keys); use Text::ParseWords qw(shellwords); +BEGIN { + if ($] < 5.012) { + *CORE::GLOBAL::length = *CORE::GLOBAL::length = sub (_) { + defined $_[0] ? CORE::length($_[0]) : undef + }; + *Irssi::active_win = {}; # hide incorrect warning + } +} + unless (IN_IRSSI) { local *_ = \@ARGV; &AwlViewer::main; @@ -1673,15 +1682,6 @@ sub string_LCSS { { package Irssi::Nick } -BEGIN { - if ($] < 5.012) { - *CORE::GLOBAL::length = *CORE::GLOBAL::length = sub (_) { - defined $_[0] ? CORE::length($_[0]) : undef - }; - *Irssi::active_win = {}; # hide incorrect warning - } -} - UNITCHECK { package AwlViewer; use strict; |