The installation of the 5.005threads {Queue,Semaphore}.pm

didn't quite work.

p4raw-id: //depot/perl@17518

1 files changed, 4 insertions, 1 deletions

diff --git a/installperl b/installperl
index ab59652599..9e06145df7 100755
--- a/installperl
+++ b/installperl
@@ -390,7 +390,10 @@ foreach my $file (@corefiles) {
 # modules if so needed.
 if ($Config{use5005threads}) {
     for my $m (qw(Queue Semaphore)) {
-        copy("ext/Thread/$m.pmx", "$installprivlib/Thread/$m.pm")
+        my $t = "$installprivlib/Thread/$m.pm";
+        unlink $t;
+        copy("ext/Thread/$m.pmx", $t);
+        chmod(0444, $t);
     }
 }