make mogtool listkey work with a prefix of '0'

git-svn-id: http://code.sixapart.com/svn/mogilefs/trunk@1420 f67b2e87-0811-0410-a7e0-dd94e48410d6
mogilefs · Mar 30, 2010 · a84d1b1 · a84d1b1
1 parent 6c612d1
commit a84d1b1
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/mogtool b/mogtool
@@ -1353,7 +1353,8 @@ sub list {
 }
 
 sub listkey {
-    my $key_pattern = shift(@ARGV) || '';
+    my $key_pattern = shift @ARGV;
+    $key_pattern    = '' unless defined $key_pattern;
 
     # list all files matching a key
     my ($ct, $after, $list);