X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDebug.pm;h=80ef17ef3336f6fb9fb9bb8407a8649ae7b79696;hb=f3b23f65ec3e143910ec6a6c36cfe1ab37f0338c;hp=632602313238c659c416fdafb1a5cb8163833efa;hpb=1b80273d4b08b05d2f58eb925da6d64396866e0f;p=spider.git

diff --git a/perl/DXDebug.pm b/perl/DXDebug.pm
index 63260231..80ef17ef 100644
--- 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 $_;