diff options
Diffstat (limited to 'installperl')
| -rwxr-xr-x | installperl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/installperl b/installperl index db6454a506..84e51f4c3d 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'}; |