From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 27 Sep 2005 06:16:47 +0000 (+0000)
Subject: Fix fuer altere Perl-Versionen (5.6.x), die wohl die Block-Syntax bei "use constant... 
X-Git-Tag: release-2.2.1~12
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/54b22b4d52b0c992c18901c16b97116e06fe9221

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