diff options
| author | ailin-nemui | 2017-04-03 21:11:41 +0200 |
|---|---|---|
| committer | GitHub | 2017-04-03 21:11:41 +0200 |
| commit | 89417933fee87fa275000c3df359d0eeedc74525 (patch) | |
| tree | e8f0aad23ac7cfb980d42f5da08e9ded37a5cc0d /scripts | |
| parent | e1076cffcae057b57dc0ee26040bca1735167b95 (diff) | |
| parent | 1af8c32cfff01505ee8ff976b9f034b6dc939694 (diff) | |
| download | scripts.irssi.org-89417933fee87fa275000c3df359d0eeedc74525.tar.bz2 | |
Merge pull request #391 from bw1/quizmaster
[quizmaster][crit] rewrite open
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/quizmaster.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/scripts/quizmaster.pl b/scripts/quizmaster.pl index 5aec557..e226075 100644 --- a/scripts/quizmaster.pl +++ b/scripts/quizmaster.pl @@ -2,7 +2,7 @@ use strict; use vars qw($VERSION %IRSSI); -$VERSION = '20030208'; +$VERSION = '20170403'; %IRSSI = ( authors => 'Stefan \'tommie\' Tomanek', contact => 'stefan@pico.ruhr.de', @@ -59,7 +59,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; @@ -74,7 +74,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"; @@ -84,7 +84,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 = {}; |