Revision 9ef78259
Von Moritz Bunkus vor mehr als 19 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
|
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);
|
||
|
|
||
Auch abrufbar als: Unified diff
Merge von 554 aus stable: Fix fuer altere Perl-Versionen (5.6.x), die wohl die Block-Syntax bei "use constant" nicht unterstuetzen.