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/quizgr.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'scripts/quizgr.pl')

diff --git a/scripts/quizgr.pl b/scripts/quizgr.pl
index 8e63d30..902f435 100644
--- a/scripts/quizgr.pl
+++ b/scripts/quizgr.pl
@@ -89,13 +89,13 @@ sub load_questions($$) {
 	#the next must be checked
 
 	my $file = Irssi::settings_get_str("quiz_file");
-	if (open(QS, "<$file")) { #open for QS
+	if (open(QS, "<", $file)) { #open for QS
 		@{$game->{'questions'}}=sort <QS>;
 		close(QS);
 		Irssi::print("Loaded questions");
 
 		my $file2 = Irssi::settings_get_str("used_file");
-		if (open(QS2, "<$file2")) { #open for QS2
+		if (open(QS2, "<", $file2)) { #open for QS2
 			@{$game->{'used_questions'}}=sort <QS2>;
 			close(QS2);
 
@@ -288,7 +288,7 @@ sub game_over($) {
 
                 #save used questions
                 my $file2 = Irssi::settings_get_str("used_file");
-                if (open(QS2, ">$file2")) {
+                if (open(QS2, ">", $file2)) {
                         my $line;
 			@{$game->{'used_questions'}}=sort @{$game->{'used_questions'}};
                         foreach $line (@{$game->{'used_questions'}}){
-- 
cgit v1.2.3