diff options
| author | ailin-nemui | 2017-04-03 21:12:25 +0200 |
|---|---|---|
| committer | GitHub | 2017-04-03 21:12:25 +0200 |
| commit | c910c4776af7b7fa02c0b7a1a48bb201f11beac8 (patch) | |
| tree | 9d8d7d3c3f2c6f8fd43d7eb93a78aa5d5569599d | |
| parent | 89417933fee87fa275000c3df359d0eeedc74525 (diff) | |
| parent | 72cd0863402908a3106575e2de53b315f2e44225 (diff) | |
| download | scripts.irssi.org-c910c4776af7b7fa02c0b7a1a48bb201f11beac8.tar.bz2 | |
Merge pull request #392 from bw1/quizmaster-fr
[quizmaster-fr][crit] rewrite open
| -rw-r--r-- | _testing/config.yml | 1 | ||||
| -rw-r--r-- | scripts/quizmaster-fr.pl | 8 |
2 files changed, 4 insertions, 5 deletions
diff --git a/_testing/config.yml b/_testing/config.yml index 3b477f6..94c99a4 100644 --- a/_testing/config.yml +++ b/_testing/config.yml @@ -53,7 +53,6 @@ whitelist: - oidenty - 'on' - osd - - quizmaster-fr - stocks - tvmusor - wordcompletition diff --git a/scripts/quizmaster-fr.pl b/scripts/quizmaster-fr.pl index 1f5bd7b..c143a09 100644 --- 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 = {}; |