diff options
| author | bw1 | 2017-03-20 19:38:25 +0100 |
|---|---|---|
| committer | bw1 | 2017-03-20 19:38:25 +0100 |
| commit | 3ea2d4a32213efd949d0a1eef1f0c43271e6593e (patch) | |
| tree | 8fac9a6706777c18d81ea4679673cce6c6b0edc0 | |
| parent | 775f4e8ce3890394cfda7abd0d7da3414b61bd83 (diff) | |
| download | scripts.irssi.org-3ea2d4a32213efd949d0a1eef1f0c43271e6593e.tar.bz2 | |
[nicklist][crit] rewrite open
| -rw-r--r-- | _testing/config.yml | 1 | ||||
| -rwxr-xr-x | 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"; } |