summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Win32/Mutex.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Win32/Mutex.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Win32/Mutex.pm125
1 files changed, 0 insertions, 125 deletions
diff --git a/Master/tlpkg/tlperl/lib/Win32/Mutex.pm b/Master/tlpkg/tlperl/lib/Win32/Mutex.pm
deleted file mode 100644
index 801c2d35cda..00000000000
--- a/Master/tlpkg/tlperl/lib/Win32/Mutex.pm
+++ /dev/null
@@ -1,125 +0,0 @@
-#---------------------------------------------------------------------
-package Win32::Mutex;
-#
-# Copyright 1998 Christopher J. Madsen
-#
-# Created: 3 Feb 1998 from the ActiveWare version
-# (c) 1995 Microsoft Corporation. All rights reserved.
-# Developed by ActiveWare Internet Corp., http://www.ActiveWare.com
-#
-# Other modifications (c) 1997 by Gurusamy Sarathy <gsar@activestate.com>
-#
-# Author: Christopher J. Madsen <cjm@pobox.com>
-# Version: 1.00 (6-Feb-1998)
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the same terms as Perl itself.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the
-# GNU General Public License or the Artistic License for more details.
-#
-# Use Win32 mutex objects for synchronization
-#---------------------------------------------------------------------
-
-$VERSION = '1.02';
-
-use Win32::IPC 1.00 '/./'; # Import everything
-require Exporter;
-require DynaLoader;
-
-@ISA = qw(Exporter DynaLoader Win32::IPC);
-@EXPORT_OK = qw(
- wait_all wait_any
-);
-
-bootstrap Win32::Mutex;
-
-sub Create { $_[0] = Win32::Mutex->new(@_[1..2]) }
-sub Open { $_[0] = Win32::Mutex->open($_[1]) }
-sub Release { &release }
-
-1;
-__END__
-
-=head1 NAME
-
-Win32::Mutex - Use Win32 mutex objects from Perl
-
-=head1 SYNOPSIS
-
- require Win32::Mutex;
-
- $mutex = Win32::Mutex->new($initial,$name);
- $mutex->wait;
-
-=head1 DESCRIPTION
-
-This module allows access to the Win32 mutex objects. The C<wait>
-method and C<wait_all> & C<wait_any> functions are inherited from the
-L<"Win32::IPC"> module.
-
-=head2 Methods
-
-=over 4
-
-=item $mutex = Win32::Mutex->new([$initial, [$name]])
-
-Constructor for a new mutex object. If C<$initial> is true, requests
-immediate ownership of the mutex (default false). If C<$name> is
-omitted, creates an unnamed mutex object.
-
-If C<$name> signifies an existing mutex object, then C<$initial> is
-ignored and the object is opened. If this happens, C<$^E> will be set
-to 183 (ERROR_ALREADY_EXISTS).
-
-=item $mutex = Win32::Mutex->open($name)
-
-Constructor for opening an existing mutex object.
-
-=item $mutex->release
-
-Release ownership of a C<$mutex>. You should have obtained ownership
-of the mutex through C<new> or one of the wait functions. Returns
-true if successful.
-
-=item $mutex->wait([$timeout])
-
-Wait for ownership of C<$mutex>. See L<"Win32::IPC">.
-
-=back
-
-=head2 Deprecated Functions and Methods
-
-B<Win32::Mutex> still supports the ActiveWare syntax, but its use is
-deprecated.
-
-=over 4
-
-=item Create($MutObj,$Initial,$Name)
-
-Use C<$MutObj = Win32::Mutex-E<gt>new($Initial,$Name)> instead.
-
-=item Open($MutObj,$Name)
-
-Use C<$MutObj = Win32::Mutex-E<gt>open($Name)> instead.
-
-=item $MutObj->Release()
-
-Use C<$MutObj-E<gt>release> instead.
-
-=back
-
-=head1 AUTHOR
-
-Christopher J. Madsen E<lt>F<cjm@pobox.com>E<gt>
-
-Loosely based on the original module by ActiveWare Internet Corp.,
-F<http://www.ActiveWare.com>
-
-=cut
-
-# Local Variables:
-# tmtrack-file-task: "Win32::Mutex"
-# End: