X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=installhtml;h=cfbbe9f5c67ac046a1147d9d5fc3dca34e5555e7;hb=8c99d73ee7ce90de2561496f683f3850d1269e1d;hp=d73124ce13756520c5ead4cef168efaec393c820;hpb=fe4c6be141b0b356b13c8403bfd72e3f9e782a25;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/installhtml b/installhtml
index d73124c..cfbbe9f 100755
--- a/installhtml
+++ b/installhtml
@@ -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