local-lib5/lib/perl5/i486-linux-gnu-thread-multi/auto/Storable/CAN_FLOCK.al

   1 # NOTE: Derived from blib/lib/Storable.pm.
   2 # Changes made here will be lost when autosplit is run again.
   3 # See AutoSplit.pm.
   4 package Storable;
   5
   6 #line 83 "blib/lib/Storable.pm (autosplit into blib/lib/auto/Storable/CAN_FLOCK.al)"
   7 #
   8 # Determine whether locking is possible, but only when needed.
   9 #
  10
  11 sub CAN_FLOCK; my $CAN_FLOCK; sub CAN_FLOCK {
  12         return $CAN_FLOCK if defined $CAN_FLOCK;
  13         require Config; import Config;
  14         return $CAN_FLOCK =
  15                 $Config{'d_flock'} ||
  16                 $Config{'d_fcntl_can_lock'} ||
  17                 $Config{'d_lockf'};
  18 }
  19
  20 # end of Storable::CAN_FLOCK
  21 1;