diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/Storable/lock_store.al')
-rw-r--r-- | Master/tlpkg/tlperl/lib/auto/Storable/lock_store.al | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/lock_store.al b/Master/tlpkg/tlperl/lib/auto/Storable/lock_store.al new file mode 100644 index 00000000000..4a863b15a97 --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/lock_store.al @@ -0,0 +1,17 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 221 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\lock_store.al)" +# +# lock_store +# +# Same as store, but flock the file first (advisory locking). +# +sub lock_store { + return _store(\&pstore, @_, 1); +} + +# end of Storable::lock_store +1; |