$versiononly = 1 if $ARGV[0] eq '-v';
$silent = 1 if $ARGV[0] eq '-S';
$otherperls = 0 if $ARGV[0] eq '-o';
- $verbose = 1 if $ARGV[0] eq '-V';
+ $verbose = 1 if $ARGV[0] eq '-V' || $ARGV [0] eq '-n';
shift;
}
# print "[$_]\n" for sort keys %archpms;
-my $perlver = sprintf "%8.6f",$];
my $ver = $Config{version};
-my $release = substr($perlver,0,3); # Not used presently.
-my $patchlevel = substr($perlver,3,2);
+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"
if $patchlevel != $Config{'PERL_VERSION'};