From c15ae0dc12e263b841bf0b831d6b5d9a765a6ba6 Mon Sep 17 00:00:00 2001
From: bw1
Date: Mon, 3 Apr 2017 14:51:40 +0200
Subject: [quiz][crit] rewrite open

---
 scripts/quiz.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'scripts')

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");
-- 
cgit v1.2.3


From fc18b7365eb079ced83d96ae093f80a6eae85c2b Mon Sep 17 00:00:00 2001
From: bw1
Date: Mon, 3 Apr 2017 18:05:34 +0200
Subject: [quizmaster][crit] rewrite open

---
 scripts/quizmaster.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'scripts')

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 = {};
-- 
cgit v1.2.3