[localize][crit] rewrite open

diff --git a/_testing/config.yml b/_testing/config.yml
index 34c9c6d2e4a478bddfe0814e0391a231ed044456..bd6f3234541443c21841e645f4ba7853d1504bea 100644 (file)
--- a/_testing/config.yml
+++ b/_testing/config.yml
@@ -46,7 +46,6 @@ whitelist:
   - ixmmsa
   - kicks
   - l33tmusic
-  - localize
   - log2ansi
   - mkshorterlink
   - newsline

diff --git a/scripts/localize.pl b/scripts/localize.pl
index 7aabe9f44659594ab7213472ca1cf499ac950dbc..b836c9298e124ae4e10d9b4bcfa316bb42c25ea8 100644 (file)
--- 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 &");