diff options
| author | bw1 | 2017-04-01 17:22:26 +0200 |
|---|---|---|
| committer | bw1 | 2017-04-01 17:22:26 +0200 |
| commit | 20ba143d3bcd64c081d35070e4fd403efeb7d2fe (patch) | |
| tree | 1295359f9da16258278d34c91f98a477d3c6ac25 /scripts/localize.pl | |
| parent | 86cda6995891ea3102e171b92c9ac1014647c1fa (diff) | |
| download | scripts.irssi.org-20ba143d3bcd64c081d35070e4fd403efeb7d2fe.tar.bz2 | |
[localize][crit] rewrite open
Diffstat (limited to 'scripts/localize.pl')
| -rw-r--r-- | scripts/localize.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/scripts/localize.pl b/scripts/localize.pl index 7aabe9f..b836c92 100644 --- a/scripts/localize.pl +++ b/scripts/localize.pl @@ -60,7 +60,7 @@ use strict; use vars qw($VERSION %IRSSI); -$VERSION = "2014112501"; +$VERSION = "2017040101"; %IRSSI = ( authors => "Stefan 'tommie' Tomanek", contact => "stefan\@pico.ruhr.de", @@ -511,7 +511,7 @@ sub save_cache { my $filename = Irssi::settings_get_str('localize_cache_filename'); my $data = Dumper(\%cache); local *F; - open(F, '>'.$filename); + open(F, '>',$filename); print(F $data); close(F); print CLIENTCRAP "%R>>%n localize cache (".scalar(keys(%cache))." entries/".length($data)." bytes) saved to ".$filename; @@ -522,7 +522,7 @@ sub load_cache { my $filename = Irssi::settings_get_str('localize_cache_filename'); my (%new_cache, $text); local *F; - open F, "<".$filename || return; + open F, "<",$filename || return; $text .= $_ foreach (<F>); close(F); eval { %new_cache = %{ eval "$text" }; }; @@ -561,7 +561,7 @@ sub show_map ($$$) { my $cmd = Irssi::settings_get_str('localize_xplanet_cmd'); my $file = Irssi::settings_get_str('localize_xplanet_temp_file'); local *F; - open F, '>'.$file; + open F, '>',$file; print F $lat.' '.$long.' "'.$nick.'"'; close F; system("$cmd -markerf $file &"); |