local-lib5/lib/perl5/i486-linux-gnu-thread-multi/auto/Storable/lock_retrieve.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 355 "blib/lib/Storable.pm (autosplit into blib/lib/auto/Storable/lock_retrieve.al)"
   7 #
   8 # lock_retrieve
   9 #
  10 # Same as retrieve, but with advisory locking.
  11 #
  12 sub lock_retrieve {
  13         _retrieve($_[0], 1);
  14 }
  15
  16 # end of Storable::lock_retrieve
  17 1;