threads::shared::queue and semaphore become Thread::Semaphore

and Queue.  The 5005threads case where the old Semaphore and
Queue.pm (they are disguised as .pmx) should get magically
installed instead has not been tested.

p4raw-id: //depot/perl@17509

1 files changed, 17 insertions, 0 deletions

diff --git a/lib/Thread/Semaphore.t b/lib/Thread/Semaphore.t
new file mode 100644
index 0000000000..14687e0b22
--- /dev/null
+++ b/lib/Thread/Semaphore.t
@@ -0,0 +1,17 @@
+use warnings;
+
+BEGIN {
+    chdir 't' if -d 't';
+    push @INC ,'../lib';
+    require Config; import Config;
+    unless ($Config{'useithreads'}) {
+        print "1..0 # Skip: no ithreads\n";
+        exit 0;
+    }
+}
+
+print "1..1\n";
+use threads;
+use Thread::Semaphore;
+print "ok 1\n";
+