diff options
| author | David Leadbeater | 2014-10-20 22:46:12 +0100 |
|---|---|---|
| committer | David Leadbeater | 2014-10-20 22:46:12 +0100 |
| commit | 5d2811af5d3d29b524936ac95e7b1b3d5144a9ce (patch) | |
| tree | 0f0b84efd10e9288695d86b69de324c467fe4e7b /scripts/quizgr.pl | |
| parent | 263a56d196da657b72ccf2b195b50008d6a988dc (diff) | |
| parent | dd80027b51b3ee71027a2612595aee38e38c0d6e (diff) | |
| download | scripts.irssi.org-5d2811af5d3d29b524936ac95e7b1b3d5144a9ce.tar.bz2 | |
Merge pull request #81 from obfuscoder/perlcritic-m-r
Fix perlcritic issues for all scripts starting with m to r
Diffstat (limited to 'scripts/quizgr.pl')
| -rw-r--r-- | scripts/quizgr.pl | 6 |
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'}}){ |