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/randname.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'scripts/randname.pl')

diff --git a/scripts/randname.pl b/scripts/randname.pl
index b474c6a..388a78b 100644
--- a/scripts/randname.pl
+++ b/scripts/randname.pl
@@ -22,7 +22,7 @@ sub randname {
 
 	my $namefile = glob Irssi::settings_get_str('random_realname_file');
 
-	open (FILE, $namefile) || return;
+	open (FILE, "<", $namefile) || return;
 	my $lines = 0; while(<FILE>) { $lines++; };
 	my $line = int(rand($lines))+1;
 
-- 
cgit v1.2.3