[Summary view] [Print] [Text view]

   1  # NOTE: Derived from ../../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 "../../lib/Storable.pm (autosplit into ../../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;