[nicklist][crit] rewrite open

diff --git a/_testing/config.yml b/_testing/config.yml
index 28dc28fe9a520bdd1794f2f149f190d9d19e2baa..d2c0177f629f6c28b768a7ad87aee8d94ff47d31 100644 (file)
--- 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 0317ba3d0a3633e258b26c8b1ca363828ab54e96..477ee2ca7c0058b1d59a8bf365edb6f6a22b74cd 100755 (executable)
--- 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";
                }