diff options
| author | Obfuscoder | 2014-10-17 18:30:46 +0200 |
|---|---|---|
| committer | Obfuscoder | 2014-10-24 19:27:38 +0200 |
| commit | d2b44a7bb135579368f93e7d4824480c000eaa64 (patch) | |
| tree | 3bddc3d5ef008dbf6aa5cf909ffb180bebfe4544 /scripts/act_fifo.pl | |
| parent | ff9a44047a299bce4995c22fd6f15851e1b065ee (diff) | |
| download | scripts.irssi.org-d2b44a7bb135579368f93e7d4824480c000eaa64.tar.bz2 | |
Fix perlcritic issues for all scripts starting with a
Diffstat (limited to 'scripts/act_fifo.pl')
| -rw-r--r-- | scripts/act_fifo.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/scripts/act_fifo.pl b/scripts/act_fifo.pl index 11ec318..c0c55d0 100644 --- a/scripts/act_fifo.pl +++ b/scripts/act_fifo.pl @@ -17,6 +17,7 @@ # 1.1: Now also updates fifo when config or window numbers are changed. # +use strict; use Irssi qw( settings_get_int settings_get_str settings_add_int settings_add_str @@ -153,7 +154,7 @@ unless (-p $path) else { require POSIX; - POSIX::mkfifo($path, 0666) or die "can\'t mkfifo $path: $!"; + POSIX::mkfifo($path, oct(666)) or die "can\'t mkfifo $path: $!"; Irssi::print("Fifo created. Start reading it (\"cat $path\") and try again."); return; } |