From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 13 Jul 2002 13:29:07 +0000 (+0000)
Subject: The installation of the 5.005threads {Queue,Semaphore}.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f7229ad31aaa72300ebf8a4e38564ad772e64958;p=p5sagit%2Fp5-mst-13.2.git

The installation of the 5.005threads {Queue,Semaphore}.pm
didn't quite work.

p4raw-id: //depot/perl@17518
---

diff --git a/ext/Thread/Queue.pmx b/ext/Thread/Queue.pmx
index 4812610..231ce3c 100644
--- a/ext/Thread/Queue.pmx
+++ b/ext/Thread/Queue.pmx
@@ -1,6 +1,9 @@
 package Thread::Queue;
 use Thread qw(cond_wait cond_broadcast);
 
+use vars qw($VERSION);
+$VERSION = '1.00';
+
 =head1 NAME
 
 Thread::Queue - thread-safe queues (5.005-threads)
diff --git a/ext/Thread/Semaphore.pmx b/ext/Thread/Semaphore.pmx
index 8d69ac5..a9fb089 100644
--- a/ext/Thread/Semaphore.pmx
+++ b/ext/Thread/Semaphore.pmx
@@ -1,6 +1,9 @@
 package Thread::Semaphore;
 use Thread qw(cond_wait cond_broadcast);
 
+use vars qw($VERSION);
+$VERSION = '1.00';
+
 =head1 NAME
 
 Thread::Semaphore - thread-safe semaphores (5.005-threads)
diff --git a/installperl b/installperl
index ab59652..9e06145 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);
     }
 }