1
MAJOR=5
MINOR=1
DEVNAME=console
ˆ
ƒ O½_•I|¥‰ÓM dœv ©ƒ&íK<óo¬ À¿ Ú
Index of /ALFA_DATA/alfasymlink/root/sys/devices/virtual/tty/tty45/subsystem/tty47
Index of /ALFA_DATA/alfasymlink/root/sys/devices/virtual/tty/tty45/subsystem/tty47
0 ˆl–Ðz¾” Je Je@¿pÜeµ1hßÂ
„ îºç_‹ uÐb
&=LV[(ÂÁ ?÷ package threads::shared;
use 5.008;
use strict;
use warnings;
use Scalar::Util qw(reftype refaddr blessed);
our $VERSION = '1.43';
my $XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
# Declare that we have been loaded
$threads::shared::threads_shared = 1;
# Method of complaint about things we can't clone
$threads::shared::clone_warn = undef;
# Load the XS code, if applicable
if ($threads::threads) {
require XSLoader;
XSLoader::load('threads::shared', $XS_VERSION);
*is_shared = \&_id;
} else {
# String eval is generally evil, but we don't want these subs to
# exist at all if 'threads' is not loaded successfully.
# Vivifying them conditionally this way saves on average about 4K
# of memory per thread.
eval <<'_MARKER_';
sub share (\[$@%]) { return $_[0] }
sub is_shared (\[$@%]) { undef }
sub cond_wait (\[$@%];\[$@%]) { undef }
sub cond_timedwait (\[$@%]$;\[$@%]) { undef }
sub cond_signal (\[$@%]) { undef }
sub cond_broadcast (\[$@%]) { undef }
_MARKER_
}
### Export ###
sub import
{
# Exported subroutines
my @EXPORT = qw(share is_shared cond_wait cond_timedwait
cond_signal cond_broadcast shared_clone);
if ($threads::threads) {
push(@EXPORT, 'bless');
}
# Export subroutine names
my $caller = caller();
foreach my $sym (@EXPORT) {
no strict 'refs';
*{$caller.'::'.$sym} = \&{$sym};
}
}
# Predeclarations for internal functions
my ($make_shared);
### Methods, etc. ###
sub threads::shared::tie::SPLICE
{
require Carp;
Carp::croak('Splice not implemented for shared arrays');
}
# Create a thread-shared clone of a complex data structure or object
sub shared_clone
{
if (@_ != 1) {
require Carp;
Carp::croak('Usage: shared_clone(REF)');
}
return $make_shared->(shift, {});
}
### Internal Functions ###
# Used by shared_clone() to recursively clone
# a complex data structure or object
$make_shared = sub {
my ($item, $cloned) = @_;
# Just return the item if:
# 1. Not a ref;
# 2. Already shared; or
# 3. Not running 'threads'.
return $item if (! ref($item) || is_shared($item) || ! $threads::threads);
# Check for previously cloned references
# (this takes care of circular refs as well)
my $addr = refaddr($item);