X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDebug.pm;h=80ef17ef3336f6fb9fb9bb8407a8649ae7b79696;hb=de987b900c04d852acec5e1af9a4326b16533253;hp=632602313238c659c416fdafb1a5cb8163833efa;hpb=97315924f561c56cef3b581691409d4217f5c1b5;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 $_;