summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/auto/Storable/lock_retrieve.al
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;