diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-15 02:41:58 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-15 02:41:58 +0000 |
| commit | 55d729e4e15089064cd25ed6dce2c105389f3837 (patch) | |
| tree | 051c5ca4ce1910143237cc92caf129a28ce98436 /Porting/makerel | |
| parent | 6ff81951f79dec32e15a779d288c1047f0e4fefb (diff) | |
| download | perl-55d729e4e15089064cd25ed6dce2c105389f3837.tar.gz | |
[win32] merge changes#922,944,949,965,970 from maintbranch
p4raw-link: @970 on //depot/maint-5.004/perl: 5362f8886d6c3fb908c863d910b1a158479419e2
p4raw-link: @965 on //depot/maint-5.004/perl: 8472ac73d6d802946d766b5459d2d9c334889a3f
p4raw-link: @949 on //depot/maint-5.004/perl: 4b161ae29769b4a3eb304314bbbfe5969417c8ec
p4raw-link: @944 on //depot/maint-5.004/perl: fa366f5fbba3f21113f9677105663454a3e0b678
p4raw-link: @922 on //depot/maint-5.004/perl: 68daf0ababdc0e913335a90c4361b792b2715301
p4raw-id: //depot/win32/perl@978
Diffstat (limited to 'Porting/makerel')
| -rw-r--r-- | Porting/makerel | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/Porting/makerel b/Porting/makerel index f719a5e936..d6582edba1 100644 --- a/Porting/makerel +++ b/Porting/makerel @@ -21,9 +21,15 @@ $patchlevel_h = `grep '#define ' patchlevel.h`; print $patchlevel_h; $patchlevel = $1 if $patchlevel_h =~ /PATCHLEVEL\s+(\d+)/; $subversion = $1 if $patchlevel_h =~ /SUBVERSION\s+(\d+)/; -die "Unable to parse patchlevel.h" unless $subversion > 0; +die "Unable to parse patchlevel.h" unless $subversion >= 0; $vers = sprintf("5.%03d", $patchlevel); -$vers.= sprintf( "_%02d", $subversion) if $subversion; +$vms_vers = sprintf("5_%03d", $patchlevel); +if ($subversion) { + $vers.= sprintf( "_%02d", $subversion); + $vms_vers.= sprintf( "%02d", $subversion); +} else { + $vms_vers.= " "; +} $perl = "perl$vers"; $reldir = "$relroot/$perl"; @@ -47,6 +53,10 @@ die "Aborted.\n" if @$missentry or @$missfile; print "\n"; +print "Updating VMS version specific files with $vms_vers...\n"; +system("perl -pi -e 's/^\QPERL_VERSION = \E\d\_\d+(\s*\#)/PERL_VERSION = $vms_vers$1/' vms/descrip.mms"); + + print "Setting file permissions...\n"; system("find . -type f -print | xargs chmod -w"); system("find . -type d -print | xargs chmod g-s"); @@ -78,7 +88,7 @@ print "\n"; print "Creating $reldir release directory...\n"; -die "$reldir release directory already exists\n" if -e "../$perl"; +die "$reldir release directory already exists\n" if -e "../$reldir"; die "$reldir.tar.gz release file already exists\n" if -e "../$reldir.tar.gz"; mkdir($reldir, 0755) or die "mkdir $reldir: $!\n"; print "\n"; |