Change 33863 by [EMAIL PROTECTED] on 2008/05/19 12:40:53
A couple more installman tidy ups.
Affected files ...
... //depot/perl/installman#53 edit
Differences ...
==== //depot/perl/installman#53 (xtext) ====
Index: perl/installman
--- perl/installman#52~33862~ 2008-05-19 05:26:51.000000000 -0700
+++ perl/installman 2008-05-19 05:40:53.000000000 -0700
@@ -18,8 +18,6 @@
$ENV{SHELL} = 'sh' if $^O eq 'os2';
-my $ver = $Config{version}; # Not used presently.
-my $release = substr($],0,3); # Not used presently.
my $patchlevel = substr($],3,2);
die "Patchlevel of perl ($patchlevel)",
"and patchlevel of config.sh ($Config{'PERL_VERSION'}) don't match\n"
@@ -46,14 +44,10 @@
die $usage if $opts{help};
$opts{destdir} //= '';
-$opts{man1dir} = "$opts{destdir}$Config{'installman1dir'}"
- unless defined($opts{man1dir});
-$opts{man1ext} = $Config{'man1ext'}
- unless defined($opts{man1ext});
-$opts{man3dir} = "$opts{destdir}$Config{'installman3dir'}"
- unless defined($opts{man3dir});
-$opts{man3ext} = $Config{'man3ext'}
- unless defined($opts{man3ext});
+foreach my $pre (qw(man1 man3)) {
+ $opts{"${pre}dir"} //= $opts{destdir} . $Config{"install${pre}dir"};
+ $opts{"${pre}ext"} //= $Config{"${pre}ext"};
+}
$opts{silent} ||= $opts{S};
$opts{notify} ||= $opts{n};
$opts{verbose} ||= $opts{V} || $opts{notify};
End of Patch.
