diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2000-08-25 14:15:23 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-25 23:01:20 +0000 |
| commit | e1a7722cd098782a8f17745f6ce67588a628fd64 (patch) | |
| tree | d76115abbca2671303d79e7f46a961aff805673b /installperl | |
| parent | 2aaffc9b6e3e8fc8b6358f4477b5ee1da89b7120 (diff) | |
| download | perl-e1a7722cd098782a8f17745f6ce67588a628fd64.tar.gz | |
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
Diffstat (limited to 'installperl')
| -rwxr-xr-x | installperl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/installperl b/installperl index eb2a31e891..b50c745085 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'}; |