From d2b44a7bb135579368f93e7d4824480c000eaa64 Mon Sep 17 00:00:00 2001
From: Obfuscoder
Date: Fri, 17 Oct 2014 18:30:46 +0200
Subject: Fix perlcritic issues for all scripts starting with a

---
 scripts/act_fifo.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'scripts/act_fifo.pl')

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;
 	}
-- 
cgit v1.2.3