Fix perlcritic issues for all scripts starting with m to r

1 files changed, 3 insertions, 3 deletions

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'}}){