X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Porting%2Fmakerel;h=d4022bbccb28fbb0980d8520a2548d65eb26f000;hb=236afa0aa46ede1fe5f6b4825a5e6c14d27b0929;hp=ae4364220116de8ff227f16ade221b032a283d2e;hpb=a619eb9edfdea31e06a943625e8e646037c62b70;p=p5sagit%2Fp5-mst-13.2.git diff --git a/Porting/makerel b/Porting/makerel index ae43642..d4022bb 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. @@ -72,7 +72,8 @@ 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 $!; @@ -85,6 +86,7 @@ system("find t ext lib -name 'test.pl' -print | xargs chmod +x"); my @exe = qw( Configure configpm + configure.gnu embed.pl installperl installman @@ -99,15 +101,16 @@ my @exe = qw( Porting/findrfuncs Porting/genlog Porting/makerel - Porting/p4d2p - Porting/p4desc 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( NetWare/config_H.wc @@ -144,22 +147,30 @@ my @writables = qw( wince/config_H.ce wince/Makefile.ce ); -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.mk wince/Makefile.ce - wince/README.compile + wince/compile-all.bat wince/README.perlce wince/registry.bat ); -system("perl -pi -e 's/\015*\012/\015\012/' @crlf"); +system("perl -pi -e 's/\\015*\\012/\\015\\012/' @crlf") == 0 + or die "system: $!"; print "\n"; chdir ".." or die $!; @@ -167,7 +178,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*");