X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDebug.pm;h=57a8237a45d48561349f45ebba5c30e9d3efb7f6;hb=9c8f43f26a7db08c4ff6ef2213c95c9f509abe36;hp=9084062c0226020bd9c7aea2f32e2354b466ee48;hpb=d235b0d777f1a90c65d5dcf8cd6adaeb9f2b7e99;p=spider.git

diff --git a/perl/DXDebug.pm b/perl/DXDebug.pm
index 9084062c..57a8237a 100644
--- a/perl/DXDebug.pm
+++ b/perl/DXDebug.pm
@@ -135,6 +135,7 @@ sub dbg
 
 sub dbginit
 {
+	my $basename = shift || 'debug';
 	$callback = shift;
 	
 	# add sig{__DIE__} handling
@@ -161,7 +162,7 @@ sub dbginit
 		}
 	}
 
-	$fp = DXLog::new('debug', 'dat', 'd');
+	$fp = DXLog::new($basename, 'dat', 'd');
 	dbgclearring();
 }