diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/Storable/store.al')
-rw-r--r-- | Master/tlpkg/tlperl/lib/auto/Storable/store.al | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/store.al b/Master/tlpkg/tlperl/lib/auto/Storable/store.al new file mode 100644 index 00000000000..c9cee55076e --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Storable/store.al @@ -0,0 +1,20 @@ +# NOTE: Derived from ..\..\lib\Storable.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Storable; + +#line 200 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\store.al)" +# +# store +# +# Store target object hierarchy, identified by a reference to its root. +# The stored object tree may later be retrieved to memory via retrieve. +# Returns undef if an I/O error occurred, in which case the file is +# removed. +# +sub store { + return _store(\&pstore, @_, 0); +} + +# end of Storable::store +1; |