From: Moritz Bunkus 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);