From dd80027b51b3ee71027a2612595aee38e38c0d6e Mon Sep 17 00:00:00 2001
From: Obfuscoder
Date: Sun, 19 Oct 2014 11:54:16 +0200
Subject: Fix perlcritic issues for all scripts starting with m to r

---
 scripts/quitmsg.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'scripts/quitmsg.pl')

diff --git a/scripts/quitmsg.pl b/scripts/quitmsg.pl
index 5fd4c6c..e289468 100644
--- a/scripts/quitmsg.pl
+++ b/scripts/quitmsg.pl
@@ -21,7 +21,7 @@ sub cmd_quit {
 	my ($data, $server, $channel) = @_;
 	return if ($data ne "");
 
-	open (f, $quitfile) || return;
+	open (f, "<", $quitfile) || return;
 	my $lines = 0; while(<f>) { $lines++; };
 
 	my $line = int(rand($lines))+1;
-- 
cgit v1.2.3