Re: Install run-help and *.zwc files system wide in build system

[Bart Schaefer <schaefer@xxxxxxxxxxxxxxxx>]

On Nov 12,  5:13pm, Bart Schaefer wrote:
}
} Was it intentional that this creates files Doc/help/{All,Options,Some},
} or is that an accident of slightly-obsolete parsing in the old helpfiles
} script?

The latter.  Util/helpfiles wasn't expecting the introductory text at the
beginning of the section, which was only added about a month ago.

The simplest thing is just to discard the introductory text (patch below).
The only other thing to do would be to add another heading after those
introductory paragraphs, and stash the text in between in some made-up
file name; already, Util/helpfiles anticipates a header "DESCRIPTIONS"
even though there isn't one.


diff --git a/Util/helpfiles b/Util/helpfiles
index 530bb15..ba1c50a 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__