diff options
Diffstat (limited to 'Porting')
| -rw-r--r-- | Porting/makerel | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Porting/makerel b/Porting/makerel index f2e1f9750b..afff585948 100644 --- a/Porting/makerel +++ b/Porting/makerel @@ -20,10 +20,10 @@ die "Must be in root of the perl source tree.\n" open PATCHLEVEL,"<patchlevel.h" or die; my @patchlevel_h = <PATCHLEVEL>; close PATCHLEVEL; -my $patchlevel_h = join "", grep { /^#define/ } @patchlevel_h; +my $patchlevel_h = join "", grep { /^#\s*define/ } @patchlevel_h; print $patchlevel_h; -$patchlevel = $1 if $patchlevel_h =~ /PATCHLEVEL\s+(\d+)/; -$subversion = $1 if $patchlevel_h =~ /SUBVERSION\s+(\d+)/; +$patchlevel = $1 if $patchlevel_h =~ /PERL_VERSION\s+(\d+)/; +$subversion = $1 if $patchlevel_h =~ /PERL_SUBVERSION\s+(\d+)/; die "Unable to parse patchlevel.h" unless $subversion >= 0; $vers = sprintf("5.%03d", $patchlevel); $vms_vers = sprintf("5_%03d", $patchlevel); |