[query][crit] rewrite open

diff --git a/_testing/config.yml b/_testing/config.yml
index 28dc28fe9a520bdd1794f2f149f190d9d19e2baa..1b6aeecbc36e2b508a101c4367940c5c6ee2dc84 100644 (file)
--- 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 1d472eab0510a8a0b00d8606158867d3641160a7..9d69aad72e959c532d24d28e3e6f002d05d8a180 100644 (file)
--- 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", $_,