diff options
| author | bw1 | 2017-03-20 20:22:57 +0100 |
|---|---|---|
| committer | bw1 | 2017-03-20 20:22:57 +0100 |
| commit | 9fa32e09aa9d917d410e85592b687d0993c13f23 (patch) | |
| tree | 7c7fafe258f5fd760e17a057162521935994c60d | |
| parent | 775f4e8ce3890394cfda7abd0d7da3414b61bd83 (diff) | |
| download | scripts.irssi.org-9fa32e09aa9d917d410e85592b687d0993c13f23.tar.bz2 | |
[query][crit] rewrite open
| -rw-r--r-- | _testing/config.yml | 1 | ||||
| -rw-r--r-- | scripts/query.pl | 6 |
2 files changed, 3 insertions, 4 deletions
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", $_, |