X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=installman;h=6e007748451b0f59494e8dfa3a82fc79925b6e83;hb=4f233aa44037bb348e757bece6f05ebd4838c4da;hp=b948c785495449f33cefdb61a11725a28d18ebf9;hpb=21dae8a00fcb221ff7938f32cdc0ecd0190ae224;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/installman b/installman
index b948c78..6e00774 100755
--- a/installman
+++ b/installman
@@ -11,6 +11,10 @@ use subs qw(unlink chmod rename link);
 use vars qw($packlist @modpods);
 require Cwd;
 
+if ($Config{d_umask}) {
+    umask(022); # umasks like 077 aren't that useful for installations
+}
+
 $ENV{SHELL} = 'sh' if $^O eq 'os2';
 
 my $ver = $Config{version};     # Not used presently.
@@ -80,9 +84,9 @@ while (<UTILS>) {
     next if /^#/;
     chomp;
     $_ = $1 if /#.*pod\s*=\s*(\S+)/;
-    my ($where, $what) = m|^(.*)/(.*)|;
+    my ($where, $what) = m|^(.*?)/(\S+)|;
     runpod2man($where, $opts{man1dir}, $opts{man1ext}, $what);
-    if (($where, $what) = /#.*link\s*=\s*(\S+)/) {
+    if (($where, $what) = m|#.*link\s*=\s*(\S+)/(\S+)|) {
         runpod2man($where, $opts{man1dir}, $opts{man1ext}, $what);
     }
 }