X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=installhtml;h=bef35e9099d5dbc61d42d9bdf6576fbef15abc20;hb=23f3aea032e3289acf8e6a178372c27e8e03f4a0;hp=db1e612865a89b8f2c675e16c45fc66dcd6e4517;hpb=29f227c9ad9c7325fbd0ac33567c35e06a70acb5;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/installhtml b/installhtml
index db1e612..bef35e9 100755
--- a/installhtml
+++ b/installhtml
@@ -1,6 +1,6 @@
 #!./perl -w
 
-# This file should really be a extracted from a .PL
+# This file should really be extracted from a .PL file
 
 use lib 'lib';		# use source library if present
 
@@ -9,8 +9,6 @@ use Getopt::Long;	# for command-line parsing
 use Cwd;
 use Pod::Html;
 
-umask 022;
-
 =head1 NAME
 
 installhtml - converts a collection of POD pages to HTML format.
@@ -161,6 +159,10 @@ $pod2html = "pod/pod2html";
 
 usage("") unless @ARGV;
 
+# Overcome shell's p1,..,p8 limitation.  
+# See vms/descrip_mms.template -> descrip.mms for invokation.
+if ( $^O eq 'VMS' ) { @ARGV = split(/\s+/,$ARGV[0]); }
+
 # parse the command-line
 $result = GetOptions( qw(
 	help
@@ -515,7 +517,7 @@ sub installdir {
 	|| die "$0: error opening directory $podroot/$dir: $!\n";
 
     # find the directories to recurse on
-    @dirlist = map { "$dir/$_" }
+    @dirlist = map { if ($^O eq 'VMS') {/^(.*)\.dir$/i; "$dir/$1";} else {"$dir/$_";}}
 	grep(-d "$podroot/$dir/$_" && !/^\.{1,2}/, readdir(DIR)) if $recurse;
     rewinddir(DIR);