diff options
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'}; |