print "Setting file permissions...\n";
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");
+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
opcode.pl
perly.fixer
t/TEST
- t/*/*.t
*.SH
vms/ext/Stdio/test.pl
vms/ext/filespec.t
x2p/*.SH
Porting/patchls
Porting/makerel
+ mpeix/nm
+ mpeix/relink
);
system("chmod +x @exe");
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 $!;