nailed set/unset parameters in user file

[spider.git] / perl / DXDebug.pm

diff --git a/perl/DXDebug.pm b/perl/DXDebug.pm
index df3cb02741cef0d31b606a411358cfa4a3376de9..80ef17ef3336f6fb9fb9bb8407a8649ae7b79696 100644 (file)
--- a/perl/DXDebug.pm
+++ b/perl/DXDebug.pm
@@ -17,7 +17,6 @@ require Exporter;
 use strict;
 use vars qw(%dbglevel $fp);
 
-use FileHandle;
 use DXUtil;
 use DXLog ();
 use Carp;
@@ -28,6 +27,8 @@ $fp = DXLog::new('debug', 'dat', 'd');
 sub _store
 {
        my $t = time; 
+       $fp->writeunix($t, "$t^$@") if $@; 
+       $fp->writeunix($t, "$t^$!") if $!; 
        for (@_) {
                $fp->writeunix($t, "$t^$_"); 
                print STDERR $_;