From: pdbogen <pdbogen@088b83a4-0077-4247-935c-42ec02c2848b>
Date: Tue, 17 Jun 2008 02:53:53 +0000 (+0000)
Subject: Fix listkeys
X-Git-Url: http://git.mmlx.us/?a=commitdiff_plain;h=07f086aa74a0af52ec60abe4963d966045a0604c;p=destult.git

Fix listkeys

git-svn-id: https://www.cernu.us/~pdbogen/svn/destult2@46 088b83a4-0077-4247-935c-42ec02c2848b
---

diff --git a/commands.yaml b/commands.yaml
index e03efe6..5117c0b 100644
--- a/commands.yaml
+++ b/commands.yaml
@@ -423,7 +423,7 @@ LISTKEYS: |-
     my @keys = keys( %{ $heap->{ 'db' } } );
     @keys = sort @keys;
     foreach( @keys ) {
-      if( length( $what ) > 0 && m/^$what/i ) {
+      if( length( $what ) == 0 || m/^$what/i ) {
         $reply .= "'$_' ";
       }
     }