X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FQSL.pm;h=c1beca63dd2f2dfbaa3bd24661304d4e68cba1cf;hb=ae9359ca7e3c924f7cc719a2fb8bb6b1ad8f36de;hp=8849be0853cc5ce930e30701db57eab05ba7a247;hpb=f05070323a49ae7b072ca711b3c03b01e6c35633;p=spider.git

diff --git a/perl/QSL.pm b/perl/QSL.pm
index 8849be08..c1beca63 100644
--- a/perl/QSL.pm
+++ b/perl/QSL.pm
@@ -88,8 +88,8 @@ sub update
 
 sub get
 {
-	my $key = uc shift;
 	return undef unless $dbm;
+	my $key = uc shift;
 	my $value;
 	
 	my $r = $dbm->get($key, $value);