projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
einen sub für get_lists -> "vendor" hinzugefügt
[kivitendo-erp.git]
/
SL
/
LXDebug.pm
diff --git
a/SL/LXDebug.pm
b/SL/LXDebug.pm
index
1071ef3
..
8a4dd29
100644
(file)
--- a/
SL/LXDebug.pm
+++ b/
SL/LXDebug.pm
@@
-15,11
+15,15
@@
use POSIX qw(strftime);
my $data_dumper_available;
my $data_dumper_available;
+our $global_level;
+our $watch_form;
+
BEGIN {
eval("use Data::Dumper");
$data_dumper_available = $@ ? 0 : 1;
$global_level = NONE;
BEGIN {
eval("use Data::Dumper");
$data_dumper_available = $@ ? 0 : 1;
$global_level = NONE;
+ $watch_form = 0;
}
sub new {
}
sub new {
@@
-97,7
+101,8
@@
sub leave_sub {
sub message {
my ($self, $level, $message) = @_;
sub message {
my ($self, $level, $message) = @_;
- $self->_write(level2string($level), $message) if (($self->{"level"} | $global_level) & $level);
+
+ $self->_write(level2string($level), $message) if (($self->{"level"} | $global_level) & $level || !$level);
}
sub dump {
}
sub dump {
@@
-134,7
+139,7
@@
sub _write {
print(FILE "${date}${message}\n");
close(FILE);
print(FILE "${date}${message}\n");
close(FILE);
-
} elsif (STDERR_TARGET == $self->{"target"}) {
+ } elsif (STDERR_TARGET == $self->{"target"}) {
print(STDERR "${date}${message}\n");
}
}
print(STDERR "${date}${message}\n");
}
}