From 9fa32e09aa9d917d410e85592b687d0993c13f23 Mon Sep 17 00:00:00 2001
From: bw1
Date: Mon, 20 Mar 2017 20:22:57 +0100
Subject: [query][crit] rewrite open

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

(limited to 'scripts')

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", $_, 
-- 
cgit v1.2.3