X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Porting%2Fmakerel;h=ac80aaa3856ea543f9ac3310ce4edba797755f76;hb=9c2a5cfebcaca6cb620772a695fd0f59629bfdf5;hp=2052fc85f72caf78d00ec992931322489baf91fe;hpb=cb50131aab68ac6dda048612c6e853b8cb08701e;p=p5sagit%2Fp5-mst-13.2.git diff --git a/Porting/makerel b/Porting/makerel index 2052fc8..ac80aaa 100644 --- a/Porting/makerel +++ b/Porting/makerel @@ -1,4 +1,4 @@ -#!/bin/env perl -w +#!/usr/bin/perl -w # A first attempt at some automated support for making a perl release. # Very basic but functional - if you're on a unix system. @@ -27,7 +27,6 @@ $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("%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); @@ -36,7 +35,7 @@ my (@local_patches, @lpatch_tags, $lpatch_tags); @lpatch_tags = map { /^\s*,"(\w+)/ } @local_patches; $lpatch_tags = join "-", @lpatch_tags; -$perl = "perl$vers"; +$perl = "perl-$vers"; $reldir = "$perl"; $reldir .= "-$lpatch_tags" if $lpatch_tags; @@ -57,10 +56,6 @@ die "Aborted.\n" if @$missentry or @$missfile; print "\n"; # VMS no longer has hardcoded version numbers descrip.mms -#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 "Creating $relroot/$reldir release directory...\n"; die "$relroot/$reldir release directory already exists\n" if -e "$relroot/$reldir"; @@ -72,65 +67,106 @@ print "\n"; print "Copying files to release directory...\n"; # ExtUtils::Manifest maniread does not preserve the order $cmd = "awk '{print \$1}' MANIFEST | cpio -pdm $relroot/$reldir"; -system($cmd) == 0 or die "$cmd failed"; +system($cmd) == 0 + or die "$cmd failed"; print "\n"; chdir "$relroot/$reldir" or die $!; print "Setting file permissions...\n"; -system("find . -type f -print | xargs chmod -w"); -system("find . -type d -print | xargs chmod g-s"); -system("find t -name '*.t' -print | xargs chmod +x"); +system("find . -type f -print | xargs chmod 0444"); +system("find . -type d -print | xargs chmod 0755"); +system("find t ext lib -name '*.t' -print | xargs chmod +x"); +system("find t ext lib -name 'test.pl' -print | xargs chmod +x"); my @exe = qw( Configure configpm + configure.gnu embed.pl installperl installman keywords.pl opcode.pl - perly.fixer t/TEST - t/*/*.t *.SH vms/ext/Stdio/test.pl vms/ext/filespec.t x2p/*.SH - Porting/patchls + Porting/findrfuncs + Porting/genlog Porting/makerel + Porting/p4genpatch + Porting/patchls + Porting/*.pl + mpeix/nm + mpeix/relink + Cross/generate_config_sh + Cross/warp ); -system("chmod +x @exe"); +system("chmod +x @exe") == 0 + or die "system: $!"; my @writables = qw( - embed.h - embedvar.h - ext/B/B/Asmdata.pm - ext/ByteLoader/byterun.c - ext/ByteLoader/byterun.h - global.sym + NetWare/config_H.wc + NetWare/Makefile keywords.h - lib/warnings.pm - objXSUB.h opcode.h - pp.sym + opnames.h pp_proto.h + pp.sym + proto.h + embed.h + embedvar.h + global.sym + overload.c + overload.h + pod/perlintern.pod + pod/perlapi.pod + pod/perltoc.pod + perlapi.h + perlapi.c + ext/Devel/PPPort/module2.c + ext/Devel/PPPort/module3.c + reentr.c + reentr.h + regcharclass.h regnodes.h warnings.h + lib/warnings.pm + win32/Makefile + win32/Makefile.ce + win32/makefile.mk win32/config_H.bc win32/config_H.gc win32/config_H.vc + utils/Makefile + uconfig.h ); -system("chmod +w @writables"); +system("chmod +w @writables") == 0 + or die "system: $!"; print "Adding CRs to DOSish files...\n"; +# This list is also in curliff.pl. my @crlf = qw( djgpp/configure.bat + README.ce README.dos + README.symbian README.win32 + symbian/config.pl + symbian/makesis.pl + symbian/README + symbian/xsbuild.pl win32/Makefile + win32/Makefile.ce + win32/ce-helpers/compile-all.bat + win32/ce-helpers/compile.bat + win32/ce-helpers/registry.bat + win32/distclean.bat win32/makefile.mk ); -system("perl -pi -e 's/\$/\\r/' @crlf"); +system("perl -pi -e 's/\\015*\\012/\\015\\012/' @crlf") == 0 + or die "system: $!"; print "\n"; chdir ".." or die $!; @@ -138,7 +174,8 @@ chdir ".." or die $!; print "Creating and compressing the tar file...\n"; my $src = (-e $perl) ? $perl : 'perl'; # 'perl' in maint branch $cmd = "tar cf - $reldir | gzip --best > $reldir.tar.gz"; -system($cmd) == 0 or die "$cmd failed"; +system($cmd) == 0 + or die "$cmd failed"; print "\n"; system("ls -ld $perl*");