diff options
| author | ailin-nemui | 2017-04-03 21:12:49 +0200 |
|---|---|---|
| committer | GitHub | 2017-04-03 21:12:49 +0200 |
| commit | c615cdd5b44e8bb069447ca0219c8738be7a3527 (patch) | |
| tree | 95afd3978fd9136fe98218fc939d0cd0ceb56b5a /scripts | |
| parent | c910c4776af7b7fa02c0b7a1a48bb201f11beac8 (diff) | |
| parent | 20ba143d3bcd64c081d35070e4fd403efeb7d2fe (diff) | |
| download | scripts.irssi.org-c615cdd5b44e8bb069447ca0219c8738be7a3527.tar.bz2 | |
Merge pull request #387 from bw1/localize
[localize][crit] rewrite open
Diffstat (limited to 'scripts')
| -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 &"); |