From a84d1b1116c5ad623faca49d8a21b1327e23cfc5 Mon Sep 17 00:00:00 2001
From: dormando <dormando@f67b2e87-0811-0410-a7e0-dd94e48410d6>
Date: Tue, 30 Mar 2010 22:15:31 +0000
Subject: [PATCH] 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
---
 mogtool | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/mogtool b/mogtool
index 0bd7d80..a3ab7d2 100755
--- 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);