From 9ef782591efbee3e837ba5b2ef879ca2eaea6ee9 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Tue, 27 Sep 2005 06:23:55 +0000 Subject: [PATCH] Merge von 554 aus stable: Fix fuer altere Perl-Versionen (5.6.x), die wohl die Block-Syntax bei "use constant" nicht unterstuetzen. --- SL/LXDebug.pm | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) 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); -- 2.20.1