diff options
| author | David Leadbeater | 2015-01-10 17:00:55 +0000 |
|---|---|---|
| committer | David Leadbeater | 2015-01-10 17:00:55 +0000 |
| commit | 6fa0cda4b3f7d54d5835fe580795e4f35980cc28 (patch) | |
| tree | 5f38704d7c9babab81a9c2b895efa2cbe968f178 /scripts/act_fifo.pl | |
| parent | cbbdf2a1d93dbb64d3fb34346e9c57b14dfa2931 (diff) | |
| parent | d2b44a7bb135579368f93e7d4824480c000eaa64 (diff) | |
| download | scripts.irssi.org-6fa0cda4b3f7d54d5835fe580795e4f35980cc28.tar.bz2 | |
Merge pull request #78 from obfuscoder/perlcritic-a
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; } |