From 092f37509348da1e5901dab2cc2ffb4cdf4c2004 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Fri, 23 Oct 2009 17:37:17 +0200
Subject: [PATCH] kopf strict

---
 kopf.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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};
 
-- 
2.20.1