From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 27 Sep 2005 06:23:55 +0000 (+0000)
Subject: Merge von 554 aus stable: Fix fuer altere Perl-Versionen (5.6.x), die wohl die Block... 
X-Git-Tag: release-2.4.0^2~519
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=9ef782591efbee3e837ba5b2ef879ca2eaea6ee9;p=kivitendo-erp.git

Merge von 554 aus stable: Fix fuer altere Perl-Versionen (5.6.x), die wohl die Block-Syntax bei "use constant" nicht unterstuetzen.
---

diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm
index ac7c577da..c3a5a6485 100644
--- a/SL/LXDebug.pm
+++ b/SL/LXDebug.pm
@@ -1,13 +1,12 @@
 package LXDebug;
 
-use constant {
-  NONE   => 0,
-  INFO   => 1,
-  DEBUG1 => 2,
-  DEBUG2 => 3,
-
-  FILE_TARGET   => 0,
-  STDERR_TARGET => 1 };
+use constant NONE => 0;
+use constant INFO => 1;
+use constant DEBUG1 => 2;
+use constant DEBUG2 => 3;
+
+use constant FILE_TARGET   => 0;
+use constant STDERR_TARGET => 1;
 
 use POSIX qw(strftime);