X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDebug.pm;h=80ef17ef3336f6fb9fb9bb8407a8649ae7b79696;hb=632bda2671a8b0cf73b1a0bffa7b906c8744b14f;hp=df3cb02741cef0d31b606a411358cfa4a3376de9;hpb=3eb9538d135d9ff21d8ce7c0e0c6b3e6d7fb59a9;p=spider.git

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