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 (file)
--- 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 .= "'$_' ";
       }
     }