From: bw1 <redacted>
Date: Mon, 20 Mar 2017 19:22:57 +0000 (+0100)
Subject: [query][crit] rewrite open
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=9fa32e09aa9d917d410e85592b687d0993c13f23;p=irssi-scripts.irssi.org.git

[query][crit] rewrite open
---

diff --git a/_testing/config.yml b/_testing/config.yml
index 28dc28f..1b6aeec 100644
--- a/_testing/config.yml
+++ b/_testing/config.yml
@@ -54,7 +54,6 @@ whitelist:
   - oidenty
   - 'on'
   - osd
-  - query
   - quizmaster-fr
   - quizmaster
   - quiz
diff --git a/scripts/query.pl b/scripts/query.pl
index 1d472ea..9d69aad 100644
--- a/scripts/query.pl
+++ b/scripts/query.pl
@@ -16,7 +16,7 @@ use POSIX;
 # ======[ Script Header ]===============================================
 
 use vars qw{$VERSION %IRSSI};
-($VERSION) = '$Revision: 1.24 $' =~ / (\d+\.\d+) /;
+($VERSION) = '$Revision: 1.25 $' =~ / (\d+\.\d+) /;
 %IRSSI = (
 	  name	      => 'query',
 	  authors     => 'Peder Stray',
@@ -44,7 +44,7 @@ sub load_defaults {
     local *FILE;
 
     %defaults = ();
-    open FILE, "< $file";
+    open FILE, '<',$file;
     while (<FILE>) {
 	my($mask,$maxage,$immortal) = split;
 	$defaults{$mask}{maxage}   = $maxage;
@@ -59,7 +59,7 @@ sub save_defaults {
     my $file = Irssi::get_irssi_dir."/query";
     local *FILE;
 
-    open FILE, "> $file";
+    open FILE, '>', $file;
     for (keys %defaults) {
 	my $d = $defaults{$_};
 	print FILE join("\t", $_,