@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;
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 . -type f -print | xargs chmod 0444");
+system("find . -type d -print | xargs chmod 0755");
system("find t -name '*.t' -print | xargs chmod +x");
my @exe = qw(
Configure
system("chmod +x @exe");
my @writables = qw(
+ keywords.h
+ opcode.h
+ opnames.h
+ pp_proto.h
+ pp.sym
+ proto.h
embed.h
embedvar.h
- ext/B/B/Asmdata.pm
- ext/ByteLoader/byterun.c
- ext/ByteLoader/byterun.h
global.sym
- keywords.h
- lib/warnings.pm
+ pod/perlintern.pod
+ pod/perlapi.pod
objXSUB.h
- opcode.h
- pp.sym
- pp_proto.h
+ perlapi.h
+ perlapi.c
+ ext/ByteLoader/byterun.h
+ ext/ByteLoader/byterun.c
+ ext/B/B/Asmdata.pm
regnodes.h
warnings.h
+ lib/warnings.pm
+ vms/perly_c.vms
+ vms/perly_h.vms
+ win32/Makefile
+ win32/makefile.mk
+ win32/config_H.bc
win32/config_H.bc
win32/config_H.gc
win32/config_H.vc
win32/Makefile
win32/makefile.mk
);
-system("perl -pi -e 's/\$/\\r/' @crlf");
+system("perl -pi -e 's/\015*\012/\015\012/' @crlf");
print "\n";
chdir ".." or die $!;