diff options
| author | Peter Stephenson <p.w.stephenson@ntlworld.com> | 2013-11-13 19:43:40 +0000 |
|---|---|---|
| committer | Peter Stephenson <p.w.stephenson@ntlworld.com> | 2013-11-13 19:43:40 +0000 |
| commit | 0e7bdd1e162f03d4ae63841edbf5002296a742da (patch) | |
| tree | a0f8f93e650583dc38d90c14ffe6034c474456cb /Util/helpfiles | |
| parent | d3630bcd0c0a9314ff3f1201fc82449ee10be4cb (diff) | |
| parent | 48539541f6675c5424bd2785f42fe3aada428a05 (diff) | |
| download | zsh-0e7bdd1e162f03d4ae63841edbf5002296a742da.tar.gz zsh-0e7bdd1e162f03d4ae63841edbf5002296a742da.tar.xz zsh-0e7bdd1e162f03d4ae63841edbf5002296a742da.zip | |
Merge remote commit
Diffstat (limited to 'Util/helpfiles')
| -rwxr-xr-x | Util/helpfiles | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Util/helpfiles b/Util/helpfiles index 530bb15af..ba1c50a38 100755 --- a/Util/helpfiles +++ b/Util/helpfiles @@ -123,7 +123,7 @@ $print = 0; sub namesub { local($cmd) = shift; - if ($cmd =~ /^\w+$/) { + if ($cmd =~ /^\w*$/ && lc($cmd) eq $cmd) { $cmd; } elsif ($cmd eq '.') { 'dot'; @@ -261,6 +261,6 @@ foreach $file (<*>) { close(LINKFILE) unless($linkfile eq ''); # Make one sanity check -&Die('not all files were properly generated') unless(-r 'zmodload'); +&Die('not all files were properly generated') unless(-r 'ztcp'); __END__ |