From 3ea2d4a32213efd949d0a1eef1f0c43271e6593e Mon Sep 17 00:00:00 2001
From: bw1
Date: Mon, 20 Mar 2017 19:38:25 +0100
Subject: [nicklist][crit] rewrite open

---
 _testing/config.yml | 1 -
 scripts/nicklist.pl | 6 +++---
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/_testing/config.yml b/_testing/config.yml
index 28dc28f..d2c0177 100644
--- a/_testing/config.yml
+++ b/_testing/config.yml
@@ -50,7 +50,6 @@ whitelist:
   - log2ansi
   - mkshorterlink
   - newsline
-  - nicklist
   - oidenty
   - 'on'
   - osd
diff --git a/scripts/nicklist.pl b/scripts/nicklist.pl
index 0317ba3..477ee2c 100755
--- a/scripts/nicklist.pl
+++ b/scripts/nicklist.pl
@@ -5,7 +5,7 @@ use strict;
 use IO::Handle; # for (auto)flush
 use Fcntl; # for sysopen
 use vars qw($VERSION %IRSSI);
-$VERSION = '0.4.6';
+$VERSION = '0.4.7';
 %IRSSI = (
 	authors     => 'Wouter Coekaerts',
 	contact     => 'coekie@irssi.org',
@@ -13,7 +13,7 @@ $VERSION = '0.4.6';
 	description => 'draws a nicklist to another terminal, or at the right of your irssi in the same terminal',
 	license     => 'GPLv2',
 	url         => 'http://wouter.coekaerts.be/irssi',
-	changed     => '29/06/2004'
+	changed     => '20/03/2017'
 );
 
 sub cmd_help {
@@ -193,7 +193,7 @@ sub screen_size {
 		unless (defined &TIOCGWINSZ) {
 			die "Term::ReadKey not found, and ioctl 'workaround' failed. Install the Term::ReadKey perl module to use screen mode.\n";
 		}
-		open(TTY, "+</dev/tty") or die "No tty: $!";
+		open(TTY, "+<","/dev/tty") or die "No tty: $!";
 		unless (ioctl(TTY, &TIOCGWINSZ, $winsize='')) {
 			die "Term::ReadKey not found, and ioctl 'workaround' failed ($!). Install the Term::ReadKey perl module to use screen mode.\n";
 		}
-- 
cgit v1.2.3