diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-02 12:22:29 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-02 12:22:29 +0000 |
| commit | 931366208db0af9fa4f551c49093e1b8d014a9e1 (patch) | |
| tree | 45bf79e40cd39630af1e26d6495dd622e9a47177 /Porting/makerel | |
| parent | 26871e0a0456cc9e8d54873877da90cb4868e80b (diff) | |
| download | perl-931366208db0af9fa4f551c49093e1b8d014a9e1.tar.gz | |
update makerel for new version format
p4raw-id: //depot/perl@4967
Diffstat (limited to 'Porting/makerel')
| -rw-r--r-- | Porting/makerel | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/Porting/makerel b/Porting/makerel index f51b4a5478..2052fc85f7 100644 --- a/Porting/makerel +++ b/Porting/makerel @@ -22,17 +22,12 @@ my @patchlevel_h = <PATCHLEVEL>; close PATCHLEVEL; my $patchlevel_h = join "", grep { /^#\s*define/ } @patchlevel_h; print $patchlevel_h; +$revision = $1 if $patchlevel_h =~ /PERL_REVISION\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); -if ($subversion) { - $vers.= sprintf( "_%02d", $subversion); - $vms_vers.= sprintf( "%02d", $subversion); -} else { - $vms_vers.= " "; -} +$vers = sprintf("%d.%d.%d", $revision, $patchlevel, $subversion); +$vms_vers = sprintf("%d_%d_%d", $revision, $patchlevel, $subversion); # fetch list of local patches my (@local_patches, @lpatch_tags, $lpatch_tags); |