From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 7 Jan 2010 10:36:27 +0000 (+0100)
Subject: Keine globalen Variablen überschreiben.
X-Git-Tag: release-2.6.2beta1~331^2~29
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=d2de308e5ad46e67514f4739974dd546eaf656f6;hp=3e0a049e40f2d68ed4d5f7c623afed5e85b8c017;p=kivitendo-erp.git

Keine globalen Variablen überschreiben.
---

diff --git a/locale/de/locales.pl b/locale/de/locales.pl
index 09b88cf9d..a29ce3fd6 100755
--- a/locale/de/locales.pl
+++ b/locale/de/locales.pl
@@ -86,10 +86,10 @@ my @dbplfiles2 = grep { /\.pl$/ } readdir DIR;
 closedir DIR;
 
 # slurp the translations in
-my $self    = {};
-my $missing = {};
-my @missing = ();
-my @lost   = ();
+our $self    = {};
+our $missing = {};
+our @missing = ();
+our @lost    = ();
 
 if (-f 'all') {
   require 'all';
@@ -119,9 +119,9 @@ map({ handle_file($_, $dbupdir2); } @dbplfiles2);
 sub handle_file {
   my ($file, $dir) = @_;
   print "\n$file" if $opt_v;
-  my %locale = ();
-  my %submit = ();
-  my %subrt  = ();
+  %locale = ();
+  %submit = ();
+  %subrt  = ();
 
   &scanfile("$dir/$file");