diff options
| -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*"); |