[quiz][crit] rewrite open

diff --git a/_testing/config.yml b/_testing/config.yml
index ee7f77e60563ac2afbe65d9cc4f66c4d3ec5d05c..0b0fea417e2a9c156ef4e3e8a7eb05d4f2eebfe8 100644 (file)
--- a/_testing/config.yml
+++ b/_testing/config.yml
@@ -55,7 +55,6 @@ whitelist:
   - osd
   - quizmaster-fr
   - quizmaster
-  - quiz
   - stocks
   - tvmusor
   - wordcompletition

diff --git a/scripts/quiz.pl b/scripts/quiz.pl
index 09ae7261fa6a5aa692ce1fccd5e4f8b87a8efa0e..46e34d86c91e028b6e89be9a989931e70d35274e 100644 (file)
--- a/scripts/quiz.pl
+++ b/scripts/quiz.pl
@@ -26,7 +26,7 @@ use strict;
 use vars qw($VERSION %IRSSI);
     
 use Irssi 20020217.1542 (); # Version 0.8.1
-$VERSION = "0.7";
+$VERSION = "0.8";
 %IRSSI = (
 authors     => "Simon Huggins",
 contact     => "huggie-irssi\@earth.li",
@@ -34,7 +34,7 @@ name        => "Quiz",
 description => "Turns irssi into a quiz bot",
 license     => "GPLv2",
 url         => "http://the.earth.li/~huggie/irssi/",
-changed     => "Wed Apr 24 01:12:01 BST 2002",
+changed     => "2017-04-03",
 );
 
 use Irssi::Irc;
@@ -69,7 +69,7 @@ sub load_questions($$) {
        return if $game->{'questions'} and not $force;
 
        my $file = Irssi::settings_get_str("quiz_file");
-       if (open(QS, "<$file")) {
+       if (open(QS, '<',$file)) {
                @{$game->{'questions'}}=<QS>;
                close(QS);
                Irssi::print("Loaded questions");