X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDebug.pm;h=c03f92af8b18308c1c32d52bd8affeae59024377;hb=cce161221036760959ff1d0b7628a55942bf558a;hp=530f3b21a532b7305767fcbe46f1081c57475d72;hpb=69c8aeb338cc485103e289fbab7ec4e7e056ed20;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__