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.
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);
}
}