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 c03f92af8b18308c1c32d52bd8affeae59024377..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^@_");
}
}
}
}