From: Spider Boardman <spider@orb.nashua.nh.us>
Date: Fri, 25 Aug 2000 18:15:23 +0000 (-0400)
Subject: Patch installperl to be long double-aware.
X-Git-Tag: accepted/trunk/20130322.191538~34355
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=e1a7722cd098782a8f17745f6ce67588a628fd64;p=platform%2Fupstream%2Fperl.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'};