diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-23 04:40:19 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-23 04:40:19 +0000 |
| commit | 86cd7d77654dfb28d587654d8287816585ed2954 (patch) | |
| tree | a69b55f798b738c841d9bbec6f3ed8fea87b36c1 /Porting/makerel | |
| parent | ac117f44706c30c5e23f7295ec8491b4705a1c77 (diff) | |
| download | perl-86cd7d77654dfb28d587654d8287816585ed2954.tar.gz | |
The RCs have been missing CRs from certain files because
not all shells can handle multiline arguments right.
p4raw-id: //depot/perl@21324
Diffstat (limited to 'Porting/makerel')
| -rw-r--r-- | Porting/makerel | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/Porting/makerel b/Porting/makerel index 5f505411f6..c2a04a9fe2 100644 --- a/Porting/makerel +++ b/Porting/makerel @@ -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 $!; @@ -106,7 +107,8 @@ my @exe = qw( mpeix/nm mpeix/relink ); -system("chmod +x @exe"); +system("chmod +x @exe") == 0 + or die "system: $!"; my @writables = qw( NetWare/config_H.wc @@ -143,7 +145,8 @@ 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"; my @crlf = qw( @@ -158,7 +161,8 @@ my @crlf = qw( 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 $!; @@ -166,7 +170,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*"); |