X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDebug.pm;h=c03f92af8b18308c1c32d52bd8affeae59024377;hb=4c0591c17b89dbb049ba119d3f3ea15c5b56128c;hp=530f3b21a532b7305767fcbe46f1081c57475d72;hpb=b0f75ae15722922dc8f341a2de79106326ff7575;p=spider.git

diff --git a/perl/DXDebug.pm b/perl/DXDebug.pm
index 530f3b21..c03f92af 100644
--- a/perl/DXDebug.pm
+++ b/perl/DXDebug.pm
@@ -64,7 +64,8 @@ sub dbglist
 
 sub isdbg
 {
-	return $dbglevel{shift};
+	my $s = shift;
+	return $dbglevel{$s};
 }
 1;
 __END__