From 92726a9425e644f4341ae55d7342653e4d69a47f Mon Sep 17 00:00:00 2001
From: Ailin Nemui
Date: Tue, 8 Dec 2015 20:28:44 +0100
Subject: adv_windowlist 1.0a5

- the last version had an incorrect fix. reported by kl3
---
 scripts/adv_windowlist.pl | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'scripts/adv_windowlist.pl')

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;
-- 
cgit v1.2.3