diff options
| author | ailin-nemui | 2017-03-20 21:24:38 +0100 |
|---|---|---|
| committer | GitHub | 2017-03-20 21:24:38 +0100 |
| commit | 0005eeef4c70655b3ecd9bfb157e0409b20ea1a2 (patch) | |
| tree | 7c7fafe258f5fd760e17a057162521935994c60d /scripts | |
| parent | 775f4e8ce3890394cfda7abd0d7da3414b61bd83 (diff) | |
| parent | 9fa32e09aa9d917d410e85592b687d0993c13f23 (diff) | |
| download | scripts.irssi.org-0005eeef4c70655b3ecd9bfb157e0409b20ea1a2.tar.bz2 | |
Merge pull request #380 from bw1/query
[query][crit] rewrite open
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/query.pl | 6 |
1 files changed, 3 insertions, 3 deletions
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", $_, |