projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1. fixed problem with missing DXDebug in DXProt.
[spider.git]
/
perl
/
DXDebug.pm
diff --git
a/perl/DXDebug.pm
b/perl/DXDebug.pm
index 530f3b21a532b7305767fcbe46f1081c57475d72..e19f309ca76cddb7285ed6b2aefa8aa7e2bfe1a7 100644
(file)
--- a/
perl/DXDebug.pm
+++ b/
perl/DXDebug.pm
@@
-29,13
+29,14
@@
sub dbg
{
my $l = shift;
if ($dbglevel{$l}) {
{
my $l = shift;
if ($dbglevel{$l}) {
- for (@_) {
- s/\n$//og;
+ my @in = @_;
+ my $t = time;
+ for (@in) {
+ s/\n$//o;
s/\a//og; # beeps
s/\a//og; # beeps
+ print "$_\n" if defined \*STDOUT;
+ $fp->writeunix($t, "$t^$_");
}
}
- print "@_\n" if defined \*STDOUT;
- my $t = time;
- $fp->writeunix($t, "$t^@_");
}
}
}
}
@@
-64,7
+65,8
@@
sub dbglist
sub isdbg
{
sub isdbg
{
- return $dbglevel{shift};
+ my $s = shift;
+ return $dbglevel{$s};
}
1;
__END__
}
1;
__END__