diff options
| author | bw1 | 2017-04-03 14:51:40 +0200 |
|---|---|---|
| committer | bw1 | 2017-04-03 14:51:40 +0200 |
| commit | c15ae0dc12e263b841bf0b831d6b5d9a765a6ba6 (patch) | |
| tree | e13250d3e4d5b1d3f0b37da0a2579edaf0c65d05 | |
| parent | 3e1de0f7700d1e4b77fc13fddfbc21a7ae4f9721 (diff) | |
| download | scripts.irssi.org-c15ae0dc12e263b841bf0b831d6b5d9a765a6ba6.tar.bz2 | |
[quiz][crit] rewrite open
| -rw-r--r-- | _testing/config.yml | 1 | ||||
| -rw-r--r-- | scripts/quiz.pl | 6 |
2 files changed, 3 insertions, 4 deletions
diff --git a/_testing/config.yml b/_testing/config.yml index ee7f77e..0b0fea4 100644 --- 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 09ae726..46e34d8 100644 --- 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"); |