added $@ and $! to see if we can store this stuff

[spider.git] / perl / DXDebug.pm

diff --git a/perl/DXDebug.pm b/perl/DXDebug.pm
index 632602313238c659c416fdafb1a5cb8163833efa..80ef17ef3336f6fb9fb9bb8407a8649ae7b79696 100644 (file)
--- a/perl/DXDebug.pm
+++ b/perl/DXDebug.pm
@@ -27,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 $_;