From d42572200030b0bf72f8f9779ce1d066f0c26fc3 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Mon, 15 Feb 1999 13:28:51 +0000 Subject: will this be it for 5.005_55? p4raw-id: //depot/perl@2949 --- Porting/makerel | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Porting') 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,"; 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); -- cgit v1.2.1