release 1.5

[spider.git] / perl / DXDebug.pm

diff --git a/perl/DXDebug.pm b/perl/DXDebug.pm
index 611df54775060f011de4ee0423c853d7126bc1c7..ecf4c12920e480ead3262efc9885c6cbdc03f9f1 100644 (file)
--- a/perl/DXDebug.pm
+++ b/perl/DXDebug.pm
@@ -34,9 +34,9 @@ sub dbg
                for (@_) {
                        s/\n$//og;
                }
-               my $str = atime . "@_" ;
-               print "$str\n";
-               $fp->writenow($str);
+               print "@_\n" if defined \*STDOUT;
+               my $t = time;
+               $fp->writeunix($t, "$t^@_");
        }
 }