kopf strict
authorSven Schöling <s.schoeling@linet-services.de>
Fri, 23 Oct 2009 15:37:17 +0000 (17:37 +0200)
committerSven Schöling <s.schoeling@linet-services.de>
Fri, 23 Oct 2009 15:37:17 +0000 (17:37 +0200)
kopf.pl

diff --git a/kopf.pl b/kopf.pl
index 28ab157..b01c42a 100755 (executable)
--- 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};