From d2de308e5ad46e67514f4739974dd546eaf656f6 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 7 Jan 2010 11:36:27 +0100
Subject: [PATCH] =?utf8?q?Keine=20globalen=20Variablen=20=C3=BCberschreibe?=
 =?utf8?q?n.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 locale/de/locales.pl | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

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");
 
-- 
2.20.1