get rid of unnecessary bytes::length usage

[public-inbox.git] / lib / PublicInbox / LeiHelp.pm

diff --git a/lib/PublicInbox/LeiHelp.pm b/lib/PublicInbox/LeiHelp.pm
index be31c2a86247d32c8e9ba2624d82544c6174dea7..fa0e78667b3b051cdf3dda96d0b8fba24e1f19f2 100644 (file)
--- a/lib/PublicInbox/LeiHelp.pm
+++ b/lib/PublicInbox/LeiHelp.pm
@@ -49,7 +49,7 @@ sub call {
                        length($_) > 1 ? push(@l, "--$_") : push(@s, "-$_");
                }
                if (!scalar(@vals)) { # no args 'threads|t'
-               } elsif ($arg_vals =~ s/\A([A-Z_]+)\b//) { # "NAME"
+               } elsif ($arg_vals =~ s/\A([A-Z_=]+)\b//) { # "NAME"
                        $vals[1] = $1;
                } else {
                        $vals[1] = uc(substr($l[0], 2)); # "--type" => "TYPE"
@@ -97,4 +97,7 @@ EOF
        undef;
 }
 
+# the "lei help" command
+sub lei_help { $_[0]->_help }
+
 1;