Add comments explaining why win32.h/embed.h are included where they are

[perl5.git] / installman

diff --git a/installman b/installman
index b948c78..6e00774 100755 (executable)
--- 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);
     }
 }