Change 17518 by jhi@alpha on 2002/07/13 13:29:07
The installation of the 5.005threads {Queue,Semaphore}.pm
didn't quite work.
Affected files ...
.... //depot/perl/ext/Thread/Queue.pmx#2 edit
.... //depot/perl/ext/Thread/Semaphore.pmx#2 edit
.... //depot/perl/installperl#100 edit
Differences ...
==== //depot/perl/ext/Thread/Queue.pmx#2 (text) ====
Index: perl/ext/Thread/Queue.pmx
--- perl/ext/Thread/Queue.pmx#1~17509~ Fri Jul 12 16:44:17 2002
+++ perl/ext/Thread/Queue.pmx Sat Jul 13 06:29:07 2002
@@ -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)
==== //depot/perl/ext/Thread/Semaphore.pmx#2 (text) ====
Index: perl/ext/Thread/Semaphore.pmx
--- perl/ext/Thread/Semaphore.pmx#1~17509~ Fri Jul 12 16:44:17 2002
+++ perl/ext/Thread/Semaphore.pmx Sat Jul 13 06:29:07 2002
@@ -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)
==== //depot/perl/installperl#100 (xtext) ====
Index: perl/installperl
--- perl/installperl#99~17509~ Fri Jul 12 16:44:17 2002
+++ perl/installperl Sat Jul 13 06:29:07 2002
@@ -390,7 +390,10 @@
# 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);
}
}
End of Patch.
