[quizmaster-fr][crit] rewrite open

diff --git a/_testing/config.yml b/_testing/config.yml
index ee7f77e60563ac2afbe65d9cc4f66c4d3ec5d05c..f6501acb900b0c12bca68bd1d8c4cb75f50c4830 100644 (file)
--- a/_testing/config.yml
+++ b/_testing/config.yml
@@ -53,7 +53,6 @@ whitelist:
   - oidenty
   - 'on'
   - osd
-  - quizmaster-fr
   - quizmaster
   - quiz
   - stocks

diff --git a/scripts/quizmaster-fr.pl b/scripts/quizmaster-fr.pl
index 1f5bd7bd9cc1703f09058419f33f32d634cf9d38..c143a091ca6b79229720f8c1ae730ad6ce178379 100644 (file)
--- a/scripts/quizmaster-fr.pl
+++ b/scripts/quizmaster-fr.pl
@@ -3,7 +3,7 @@
 use strict;
 
 use vars qw($VERSION %IRSSI);
-$VERSION = '20030208+fr';
+$VERSION = '20170403+fr';
 %IRSSI = (
           authors     => 'Stefan \'tommie\' Tomanek',
           contact     => 'stefan@pico.ruhr.de',
@@ -60,7 +60,7 @@ sub draw_box ($$$$) {
 sub save_quizfile {
     local *F;
     my $filename = Irssi::settings_get_str("quizmaster_questions_file");
-    open(F, ">".$filename);
+    open(F, '>',$filename);
     my $dumper = Data::Dumper->new([\%questions], ['quest']);
     $dumper->Purity(1)->Deepcopy(1);
     my $data = $dumper->Dump;
@@ -75,7 +75,7 @@ sub load_quizfile ($) {
     return unless -e $file;
     my $text;
     local *F;
-    open F, $file;
+    open F,'<', $file;
     $text .= $_ foreach (<F>);
     close F;
     return unless "$text";
@@ -85,7 +85,7 @@ sub load_quizfile ($) {
 sub import_quizfile ($$) {
     my ($name, $file) = @_;
     local *F;
-    open(F, $file);
+    open(F,'<', $file);
     my @data = <F>;
     my @questions;
     my $quest = {};