Update Changes.

[p5sagit/p5-mst-13.2.git] / installperl

diff --git a/installperl b/installperl
index db6454a..c65af5a 100755 (executable)
--- a/installperl
+++ b/installperl
@@ -56,7 +56,7 @@ while (@ARGV) {
     $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;
 }
 
@@ -113,10 +113,9 @@ find(sub {
 
 # 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'};
@@ -160,7 +159,7 @@ if ($d_dosuid && $>) { die "You must run as root to install suidperl\n"; }
 -x 'perl' . $exe_ext   || die "perl isn't executable!\n";
 -x 'suidperl' . $exe_ext|| die "suidperl isn't executable!\n" if $d_dosuid;
 
--f 't/ran_tests'       || $Is_W32
+-f 't/rantests'                || $Is_W32
                        || warn "WARNING: You've never run 'make test'!!!",
                                "  (Installing anyway.)\n";