@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