add show/contest command

[spider.git] / perl / QSL.pm

diff --git a/perl/QSL.pm b/perl/QSL.pm
index 8849be0853cc5ce930e30701db57eab05ba7a247..c1beca63dd2f2dfbaa3bd24661304d4e68cba1cf 100644 (file)
--- 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);