Merge von 554 aus stable: Fix fuer altere Perl-Versionen (5.6.x), die wohl die Block...

diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm
index ac7c577da53ed9b9ac7b21bb2b0bfbf870212b25..c3a5a6485cc6faa0f729d9e613452b70087609f1 100644 (file)
--- 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);