Merge von 554 aus stable: Fix fuer altere Perl-Versionen (5.6.x), die wohl die Block...
authorMoritz Bunkus <m.bunkus@linet-services.de>
Tue, 27 Sep 2005 06:23:55 +0000 (06:23 +0000)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Tue, 27 Sep 2005 06:23:55 +0000 (06:23 +0000)
SL/LXDebug.pm

index ac7c577..c3a5a64 100644 (file)
@@ -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);