From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 26 Aug 2000 14:06:33 +0000 (+0000)
Subject: Retract #6826 as the #6828 should be do the same
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=03284eb6ec827d07c030082154485bd4c4cf4a37;p=p5sagit%2Fp5-mst-13.2.git

Retract #6826 as the #6828 should be do the same
in a More Correct Way.

p4raw-id: //depot/perl@6838
---

diff --git a/installperl b/installperl
index db6454a..84e51f4 100755
--- a/installperl
+++ b/installperl
@@ -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'};