1 files changed, 0 insertions, 85 deletions
diff --git a/contrib/perl5/ext/Thread/Thread/Semaphore.pm b/contrib/perl5/ext/Thread/Thread/Semaphore.pm
deleted file mode 100644
index 3cd6338..0000000
--- a/contrib/perl5/ext/Thread/Thread/Semaphore.pm
+++ /dev/null
@@ -1,85 +0,0 @@
-package Thread::Semaphore;
-use Thread qw(cond_wait cond_broadcast);
-
-=head1 NAME
-
-Thread::Semaphore - thread-safe semaphores
-
-=head1 SYNOPSIS
-
-    use Thread::Semaphore;
-    my $s = new Thread::Semaphore;
-    $s->up;	# Also known as the semaphore V -operation.
-    # The guarded section is here
-    $s->down;	# Also known as the semaphore P -operation.
-
-    # The default semaphore value is 1.
-    my $s = new Thread::Semaphore($initial_value);
-    $s->up($up_value);
-    $s->down($up_value);
-
-=head1 DESCRIPTION
-
-Semaphores provide a mechanism to regulate access to resources. Semaphores,
-unlike locks, aren't tied to particular scalars, and so may be used to
-control access to anything you care to use them for.
-
-Semaphores don't limit their values to zero or one, so they can be used to
-control access to some resource that may have more than one of. (For
-example, filehandles) Increment and decrement amounts aren't fixed at one
-either, so threads can reserve or return multiple resources at once.
-
-=head1 FUNCTIONS AND METHODS
-
-=over 8
-
-=item new
-
-=item new NUMBER
-
-C<new> creates a new semaphore, and initializes its count to the passed
-number. If no number is passed, the semaphore's count is set to one.
-
-=item down
-
-=item down NUMBER
-
-The C<down> method decreases the semaphore's count by the specified number,
-or one if no number has been specified. If the semaphore's count would drop
-below zero, this method will block until such time that the semaphore's
-count is equal to or larger than the amount you're C<down>ing the
-semaphore's count by.
-
-=item up
-
-=item up NUMBER
-
-The C<up> method increases the semaphore's count by the number specified,
-or one if no number's been specified. This will unblock any thread blocked
-trying to C<down> the semaphore if the C<up> raises the semaphore count
-above what the C<down>s are trying to decrement it by.
-
-=back
-
-=cut
-
-sub new {
-    my $class = shift;
-    my $val = @_ ? shift : 1;
-    bless \$val, $class;
-}
-
-sub down : locked : method {
-    my $s = shift;
-    my $inc = @_ ? shift : 1;
-    cond_wait $s until $$s >= $inc;
-    $$s -= $inc;
-}
-
-sub up : locked : method {
-    my $s = shift;
-    my $inc = @_ ? shift : 1;
-    ($$s += $inc) > 0 and cond_broadcast $s;
-}
-
-1;