# NOTE: Derived from ..\..\lib\Storable.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package Storable; #line 83 "..\..\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;