home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Netrunner 2004 October
/
NETRUNNER0410.ISO
/
regular
/
ActivePerl-5.8.4.810-MSWin32-x86.msi
/
_2a0eb18f7d2d7aef39488e2af26c111e
< prev
next >
Wrap
Text File
|
2004-06-01
|
576b
|
22 lines
# NOTE: Derived from ..\..\lib\Storable.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Storable;
#line 78 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\CAN_FLOCK.al)"
#
# Determine whether locking is possible, but only when needed.
#
sub CAN_FLOCK; my $CAN_FLOCK; sub CAN_FLOCK {
return $CAN_FLOCK if defined $CAN_FLOCK;
require Config; import Config;
return $CAN_FLOCK =
$Config{'d_flock'} ||
$Config{'d_fcntl_can_lock'} ||
$Config{'d_lockf'};
}
# end of Storable::CAN_FLOCK
1;