From: Sven Schöling <s.schoeling@linet-services.de>
Date: Fri, 23 Oct 2009 15:37:17 +0000 (+0200)
Subject: kopf strict
X-Git-Tag: release-2.6.1beta1~154
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=092f37509348da1e5901dab2cc2ffb4cdf4c2004;p=kivitendo-erp.git

kopf strict
---

diff --git a/kopf.pl b/kopf.pl
index 28ab15716..b01c42a10 100755
--- a/kopf.pl
+++ b/kopf.pl
@@ -1,13 +1,15 @@
 #!/usr/bin/perl
 #
 
+use strict;
+
 BEGIN {
   unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML).
   push    @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version.
 }
 
 use SL::LXDebug;
-$lxdebug = LXDebug->new();
+our $lxdebug = LXDebug->new();
 
 use SL::Auth;
 use SL::Form;
@@ -16,7 +18,7 @@ use SL::Locale;
 eval { require "config/lx-erp.conf"; };
 eval { require "config/lx-erp-local.conf"; } if (-f "config/lx-erp-local.conf");
 
-$form = new Form;
+our $form = new Form;
 
 our $auth     = SL::Auth->new();
 if (!$auth->session_tables_present()) {
@@ -27,7 +29,7 @@ $auth->restore_session();
 
 our %myconfig = $auth->read_user($form->{login});
 
-$locale = new Locale "$myconfig{countrycode}", "kopf";
+our $locale = new Locale "$myconfig{countrycode}", "kopf";
 
 delete $form->{password};