diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-07-13 13:29:07 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-07-13 13:29:07 +0000 |
| commit | f7229ad31aaa72300ebf8a4e38564ad772e64958 (patch) | |
| tree | 8d95601829c1585f380d7e50e5aa373f32b79827 | |
| parent | c990a0aa946ece05f609eb30b27514cac41fbbe3 (diff) | |
| download | perl-f7229ad31aaa72300ebf8a4e38564ad772e64958.tar.gz | |
The installation of the 5.005threads {Queue,Semaphore}.pm
didn't quite work.
p4raw-id: //depot/perl@17518
| -rw-r--r-- | ext/Thread/Queue.pmx | 3 | ||||
| -rw-r--r-- | ext/Thread/Semaphore.pmx | 3 | ||||
| -rwxr-xr-x | installperl | 5 |
3 files changed, 10 insertions, 1 deletions
diff --git a/ext/Thread/Queue.pmx b/ext/Thread/Queue.pmx index 481261043f..231ce3c154 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 8d69ac540a..a9fb089909 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 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); } } |