blob: 1e2879fc48a4b14573d972f9d6f93f4b4d5d9673 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
# NOTE: Derived from ..\..\lib\Storable.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Storable;
#line 355 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\lock_retrieve.al)"
#
# lock_retrieve
#
# Same as retrieve, but with advisory locking.
#
sub lock_retrieve {
_retrieve($_[0], 1);
}
# end of Storable::lock_retrieve
1;
|