Revision 5d0421a3
Von Moritz Bunkus vor etwa 19 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
| 1 | 1 |
package LXDebug; |
| 2 | 2 |
|
| 3 |
use constant {
|
|
| 4 |
NONE => 0, |
|
| 5 |
INFO => 1, |
|
| 6 |
DEBUG1 => 2, |
|
| 7 |
DEBUG2 => 3, |
|
| 8 |
|
|
| 9 |
FILE_TARGET => 0, |
|
| 10 |
STDERR_TARGET => 1 }; |
|
| 3 |
use constant NONE => 0; |
|
| 4 |
use constant INFO => 1; |
|
| 5 |
use constant DEBUG1 => 2; |
|
| 6 |
use constant DEBUG2 => 3; |
|
| 7 |
|
|
| 8 |
use constant FILE_TARGET => 0; |
|
| 9 |
use constant STDERR_TARGET => 1; |
|
| 11 | 10 |
|
| 12 | 11 |
use POSIX qw(strftime); |
| 13 | 12 |
|
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.