From: Spider Boardman Date: Fri, 25 Aug 2000 18:15:23 +0000 (-0400) Subject: Patch installperl to be long double-aware. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e1a7722cd098782a8f17745f6ce67588a628fd64;p=p5sagit%2Fp5-mst-13.2.git Patch installperl to be long double-aware. Subject: Re: [PATCH] [ID 20000825.019] Not OK: perl v5.7.0 +SUIDMAIL +DEVEL6820 on alpha-dec_osf 5.1 (UNINSTALLED) Message-Id: <200008252215.SAA28740@leggy.zk3.dec.com> p4raw-id: //depot/perl@6826 --- diff --git a/installperl b/installperl index eb2a31e..b50c745 100755 --- a/installperl +++ b/installperl @@ -113,9 +113,10 @@ find(sub { # print "[$_]\n" for sort keys %archpms; +my $perlver = sprintf "%8.6f",$]; my $ver = $Config{version}; -my $release = substr($],0,3); # Not used presently. -my $patchlevel = substr($],3,2); +my $release = substr($perlver,0,3); # Not used presently. +my $patchlevel = substr($perlver,3,2); die "Patchlevel of perl ($patchlevel)", "and patchlevel of config.sh ($Config{'PERL_VERSION'}) don't match\n" if $patchlevel != $Config{'PERL_VERSION'};