diff options
author | Karl Berry <karl@freefriends.org> | 2012-05-21 00:15:27 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2012-05-21 00:15:27 +0000 |
commit | a4c42bfb2337d37da89d789cb8cc226367994e32 (patch) | |
tree | c3eabdef5d565a4e515d2be0d9d4d0540bde0250 /Master/tlpkg/tlperl/lib/auto/Storable | |
parent | 8274475057f024d35332ac47c2e2f23ea156e6ed (diff) |
perl 5.14.2 from siep
git-svn-id: svn://tug.org/texlive/trunk@26525 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/Storable')
26 files changed, 0 insertions, 574 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/BIN_VERSION_NV.al b/Master/tlpkg/tlperl/lib/auto/Storable/BIN_VERSION_NV.al deleted file mode 100644 index add6a1d678b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/BIN_VERSION_NV.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 192 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\BIN_VERSION_NV.al)" -sub BIN_VERSION_NV { - sprintf "%d.%03d", BIN_MAJOR(), BIN_MINOR(); -} - -# end of Storable::BIN_VERSION_NV -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/BIN_WRITE_VERSION_NV.al b/Master/tlpkg/tlperl/lib/auto/Storable/BIN_WRITE_VERSION_NV.al deleted file mode 100644 index e17ce4d2c3a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/BIN_WRITE_VERSION_NV.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 196 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\BIN_WRITE_VERSION_NV.al)" -sub BIN_WRITE_VERSION_NV { - sprintf "%d.%03d", BIN_MAJOR(), BIN_WRITE_MINOR(); -} - -# end of Storable::BIN_WRITE_VERSION_NV -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/CAN_FLOCK.al b/Master/tlpkg/tlperl/lib/auto/Storable/CAN_FLOCK.al deleted file mode 100644 index c0df84b654f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/CAN_FLOCK.al +++ /dev/null @@ -1,21 +0,0 @@ -# NOTE: Derived from ..\..\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 83 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\CAN_FLOCK.al)" -# -# Determine whether locking is possible, but only when needed. -# - -sub CAN_FLOCK; my $CAN_FLOCK; sub CAN_FLOCK { - return $CAN_FLOCK if defined $CAN_FLOCK; - require Config; import Config; - return $CAN_FLOCK = - $Config{'d_flock'} || - $Config{'d_fcntl_can_lock'} || - $Config{'d_lockf'}; -} - -# end of Storable::CAN_FLOCK -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/Storable.dll b/Master/tlpkg/tlperl/lib/auto/Storable/Storable.dll Binary files differindex 419c2877140..3d32cf6af9a 100755 --- a/Master/tlpkg/tlperl/lib/auto/Storable/Storable.dll +++ b/Master/tlpkg/tlperl/lib/auto/Storable/Storable.dll diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/_freeze.al b/Master/tlpkg/tlperl/lib/auto/Storable/_freeze.al deleted file mode 100644 index 5e1ea07846a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/_freeze.al +++ /dev/null @@ -1,23 +0,0 @@ -# NOTE: Derived from ..\..\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 330 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\_freeze.al)" -# Internal freeze routine -sub _freeze { - my $xsptr = shift; - my $self = shift; - logcroak "not a reference" unless ref($self); - logcroak "too many arguments" unless @_ == 0; # No @foo in arglist - my $da = $@; # Don't mess if called from exception handler - my $ret; - # Call C routine mstore or net_mstore, depending on network order - eval { $ret = &$xsptr($self) }; - logcroak $@ if $@ =~ s/\.?\n$/,/; - $@ = $da; - return $ret ? $ret : undef; -} - -# end of Storable::_freeze -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/_retrieve.al b/Master/tlpkg/tlperl/lib/auto/Storable/_retrieve.al deleted file mode 100644 index f16abc56b2a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/_retrieve.al +++ /dev/null @@ -1,31 +0,0 @@ -# NOTE: Derived from ..\..\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 364 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\_retrieve.al)" -# Internal retrieve routine -sub _retrieve { - my ($file, $use_locking) = @_; - local *FILE; - open(FILE, $file) || logcroak "can't open $file: $!"; - binmode FILE; # Archaic systems... - my $self; - my $da = $@; # Could be from exception handler - if ($use_locking) { - unless (&CAN_FLOCK) { - logcarp "Storable::lock_store: fcntl/flock emulation broken on $^O"; - return undef; - } - flock(FILE, LOCK_SH) || logcroak "can't get shared lock on $file: $!"; - # Unlocking will happen when FILE is closed - } - eval { $self = pretrieve(*FILE) }; # Call C routine - close(FILE); - logcroak $@ if $@ =~ s/\.?\n$/,/; - $@ = $da; - return $self; -} - -# end of Storable::_retrieve -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/_store.al b/Master/tlpkg/tlperl/lib/auto/Storable/_store.al deleted file mode 100644 index 19ed0287800..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/_store.al +++ /dev/null @@ -1,41 +0,0 @@ -# NOTE: Derived from ..\..\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 239 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\_store.al)" -# Internal store to file routine -sub _store { - my $xsptr = shift; - my $self = shift; - my ($file, $use_locking) = @_; - logcroak "not a reference" unless ref($self); - logcroak "wrong argument number" unless @_ == 2; # No @foo in arglist - local *FILE; - if ($use_locking) { - open(FILE, ">>$file") || logcroak "can't write into $file: $!"; - unless (&CAN_FLOCK) { - logcarp "Storable::lock_store: fcntl/flock emulation broken on $^O"; - return undef; - } - flock(FILE, LOCK_EX) || - logcroak "can't get exclusive lock on $file: $!"; - truncate FILE, 0; - # Unlocking will happen when FILE is closed - } else { - open(FILE, ">$file") || logcroak "can't create $file: $!"; - } - binmode FILE; # Archaic systems... - my $da = $@; # Don't mess if called from exception handler - my $ret; - # Call C routine nstore or pstore, depending on network order - eval { $ret = &$xsptr(*FILE, $self) }; - close(FILE) or $ret = undef; - unlink($file) or warn "Can't unlink $file: $!\n" if $@ || !defined $ret; - logcroak $@ if $@ =~ s/\.?\n$/,/; - $@ = $da; - return $ret ? $ret : undef; -} - -# end of Storable::_store -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/_store_fd.al b/Master/tlpkg/tlperl/lib/auto/Storable/_store_fd.al deleted file mode 100644 index ad88105864a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/_store_fd.al +++ /dev/null @@ -1,27 +0,0 @@ -# NOTE: Derived from ..\..\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 292 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\_store_fd.al)" -# Internal store routine on opened file descriptor -sub _store_fd { - my $xsptr = shift; - my $self = shift; - my ($file) = @_; - logcroak "not a reference" unless ref($self); - logcroak "too many arguments" unless @_ == 1; # No @foo in arglist - my $fd = fileno($file); - logcroak "not a valid file descriptor" unless defined $fd; - my $da = $@; # Don't mess if called from exception handler - my $ret; - # Call C routine nstore or pstore, depending on network order - eval { $ret = &$xsptr($file, $self) }; - logcroak $@ if $@ =~ s/\.?\n$/,/; - local $\; print $file ''; # Autoflush the file if wanted - $@ = $da; - return $ret ? $ret : undef; -} - -# end of Storable::_store_fd -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Storable/autosplit.ix deleted file mode 100644 index f68bf3f340d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/autosplit.ix +++ /dev/null @@ -1,28 +0,0 @@ -# Index created by AutoSplit for ..\..\lib\Storable.pm -# (file acts as timestamp) -package Storable; -sub logcroak ; -sub logcarp ; -sub CAN_FLOCK ; -sub show_file_magic ; -sub file_magic ; -sub read_magic ; -sub BIN_VERSION_NV ; -sub BIN_WRITE_VERSION_NV ; -sub store ; -sub nstore ; -sub lock_store ; -sub lock_nstore ; -sub _store ; -sub store_fd ; -sub nstore_fd ; -sub _store_fd ; -sub freeze ; -sub nfreeze ; -sub _freeze ; -sub retrieve ; -sub lock_retrieve ; -sub _retrieve ; -sub fd_retrieve ; -sub thaw ; -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/fd_retrieve.al b/Master/tlpkg/tlperl/lib/auto/Storable/fd_retrieve.al deleted file mode 100644 index b25d7b009c3..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/fd_retrieve.al +++ /dev/null @@ -1,25 +0,0 @@ -# NOTE: Derived from ..\..\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 387 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\fd_retrieve.al)" -# -# fd_retrieve -# -# Same as retrieve, but perform from an already opened file descriptor instead. -# -sub fd_retrieve { - my ($file) = @_; - my $fd = fileno($file); - logcroak "not a valid file descriptor" unless defined $fd; - my $self; - my $da = $@; # Could be from exception handler - eval { $self = pretrieve($file) }; # Call C routine - logcroak $@ if $@ =~ s/\.?\n$/,/; - $@ = $da; - return $self; -} - -# end of Storable::fd_retrieve -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/file_magic.al b/Master/tlpkg/tlperl/lib/auto/Storable/file_magic.al deleted file mode 100644 index 1bce16c051c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/file_magic.al +++ /dev/null @@ -1,21 +0,0 @@ -# NOTE: Derived from ..\..\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 118 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\file_magic.al)" -sub file_magic { - my $file = shift; - my $fh = new FileHandle; - open($fh, "<". $file) || die "Can't open '$file': $!"; - binmode($fh); - defined(sysread($fh, my $buf, 32)) || die "Can't read from '$file': $!"; - close($fh); - - $file = "./$file" unless $file; # ensure TRUE value - - return read_magic($buf, $file); -} - -# end of Storable::file_magic -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/freeze.al b/Master/tlpkg/tlperl/lib/auto/Storable/freeze.al deleted file mode 100644 index 7e1a45687b2..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/freeze.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from ..\..\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 311 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\freeze.al)" -# -# freeze -# -# Store oject and its hierarchy in memory and return a scalar -# containing the result. -# -sub freeze { - _freeze(\&mstore, @_); -} - -# end of Storable::freeze -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/lock_nstore.al b/Master/tlpkg/tlperl/lib/auto/Storable/lock_nstore.al deleted file mode 100644 index 2c5d9950595..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/lock_nstore.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from ..\..\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 230 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\lock_nstore.al)" -# -# lock_nstore -# -# Same as nstore, but flock the file first (advisory locking). -# -sub lock_nstore { - return _store(\&net_pstore, @_, 1); -} - -# end of Storable::lock_nstore -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/lock_retrieve.al b/Master/tlpkg/tlperl/lib/auto/Storable/lock_retrieve.al deleted file mode 100644 index 1e2879fc48a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/lock_retrieve.al +++ /dev/null @@ -1,17 +0,0 @@ -# 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; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/lock_store.al b/Master/tlpkg/tlperl/lib/auto/Storable/lock_store.al deleted file mode 100644 index 4a863b15a97..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/lock_store.al +++ /dev/null @@ -1,17 +0,0 @@ -# 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; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/logcarp.al b/Master/tlpkg/tlperl/lib/auto/Storable/logcarp.al deleted file mode 100644 index bbdd382ff31..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/logcarp.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from ..\..\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 79 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\logcarp.al)" -sub logcarp { - Carp::carp(@_); -} - -# end of Storable::logcarp -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/logcroak.al b/Master/tlpkg/tlperl/lib/auto/Storable/logcroak.al deleted file mode 100644 index 9c8daff7dae..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/logcroak.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from ..\..\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 70 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\logcroak.al)" -# -# Use of Log::Agent is optional. If it hasn't imported these subs then -# Autoloader will kindly supply our fallback implementation. -# - -sub logcroak { - Carp::croak(@_); -} - -# end of Storable::logcroak -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/nfreeze.al b/Master/tlpkg/tlperl/lib/auto/Storable/nfreeze.al deleted file mode 100644 index 92f4641d461..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/nfreeze.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from ..\..\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 321 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\nfreeze.al)" -# -# nfreeze -# -# Same as freeze but in network order. -# -sub nfreeze { - _freeze(\&net_mstore, @_); -} - -# end of Storable::nfreeze -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/nstore.al b/Master/tlpkg/tlperl/lib/auto/Storable/nstore.al deleted file mode 100644 index d865716dd5c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/nstore.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from ..\..\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 212 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\nstore.al)" -# -# nstore -# -# Same as store, but in network order. -# -sub nstore { - return _store(\&net_pstore, @_, 0); -} - -# end of Storable::nstore -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/nstore_fd.al b/Master/tlpkg/tlperl/lib/auto/Storable/nstore_fd.al deleted file mode 100644 index 5979b873150..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/nstore_fd.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from ..\..\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 282 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\nstore_fd.al)" -# -# nstore_fd -# -# Same as store_fd, but in network order. -# -sub nstore_fd { - my ($self, $file) = @_; - return _store_fd(\&net_pstore, @_); -} - -# end of Storable::nstore_fd -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/read_magic.al b/Master/tlpkg/tlperl/lib/auto/Storable/read_magic.al deleted file mode 100644 index 40b54af7556..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/read_magic.al +++ /dev/null @@ -1,69 +0,0 @@ -# NOTE: Derived from ..\..\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 131 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\read_magic.al)" -sub read_magic { - my($buf, $file) = @_; - my %info; - - my $buflen = length($buf); - my $magic; - if ($buf =~ s/^(pst0|perl-store)//) { - $magic = $1; - $info{file} = $file || 1; - } - else { - return undef if $file; - $magic = ""; - } - - return undef unless length($buf); - - my $net_order; - if ($magic eq "perl-store" && ord(substr($buf, 0, 1)) > 1) { - $info{version} = -1; - $net_order = 0; - } - else { - $net_order = ord(substr($buf, 0, 1, "")); - my $major = $net_order >> 1; - return undef if $major > 4; # sanity (assuming we never go that high) - $info{major} = $major; - $net_order &= 0x01; - if ($major > 1) { - return undef unless length($buf); - my $minor = ord(substr($buf, 0, 1, "")); - $info{minor} = $minor; - $info{version} = "$major.$minor"; - $info{version_nv} = sprintf "%d.%03d", $major, $minor; - } - else { - $info{version} = $major; - } - } - $info{version_nv} ||= $info{version}; - $info{netorder} = $net_order; - - unless ($net_order) { - return undef unless length($buf); - my $len = ord(substr($buf, 0, 1, "")); - return undef unless length($buf) >= $len; - return undef unless $len == 4 || $len == 8; # sanity - $info{byteorder} = substr($buf, 0, $len, ""); - $info{intsize} = ord(substr($buf, 0, 1, "")); - $info{longsize} = ord(substr($buf, 0, 1, "")); - $info{ptrsize} = ord(substr($buf, 0, 1, "")); - if ($info{version_nv} >= 2.002) { - return undef unless length($buf); - $info{nvsize} = ord(substr($buf, 0, 1, "")); - } - } - $info{hdrsize} = $buflen - length($buf); - - return \%info; -} - -# end of Storable::read_magic -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/retrieve.al b/Master/tlpkg/tlperl/lib/auto/Storable/retrieve.al deleted file mode 100644 index b996685671a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/retrieve.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from ..\..\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 345 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\retrieve.al)" -# -# retrieve -# -# Retrieve object hierarchy from disk, returning a reference to the root -# object of that tree. -# -sub retrieve { - _retrieve($_[0], 0); -} - -# end of Storable::retrieve -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/show_file_magic.al b/Master/tlpkg/tlperl/lib/auto/Storable/show_file_magic.al deleted file mode 100644 index c7422c6648a..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/show_file_magic.al +++ /dev/null @@ -1,30 +0,0 @@ -# NOTE: Derived from ..\..\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 96 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\show_file_magic.al)" -sub show_file_magic { - print <<EOM; -# -# To recognize the data files of the Perl module Storable, -# the following lines need to be added to the local magic(5) file, -# usually either /usr/share/misc/magic or /etc/magic. -# -0 string perl-store perl Storable(v0.6) data ->4 byte >0 (net-order %d) ->>4 byte &01 (network-ordered) ->>4 byte =3 (major 1) ->>4 byte =2 (major 1) - -0 string pst0 perl Storable(v0.7) data ->4 byte >0 ->>4 byte &01 (network-ordered) ->>4 byte =5 (major 2) ->>4 byte =4 (major 2) ->>5 byte >0 (minor %d) -EOM -} - -# end of Storable::show_file_magic -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/store.al b/Master/tlpkg/tlperl/lib/auto/Storable/store.al deleted file mode 100644 index c9cee55076e..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/store.al +++ /dev/null @@ -1,20 +0,0 @@ -# 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; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/store_fd.al b/Master/tlpkg/tlperl/lib/auto/Storable/store_fd.al deleted file mode 100644 index 8e3b72c1199..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/store_fd.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from ..\..\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 272 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\store_fd.al)" -# -# store_fd -# -# Same as store, but perform on an already opened file descriptor instead. -# Returns undef if an I/O error occurred. -# -sub store_fd { - return _store_fd(\&pstore, @_); -} - -# end of Storable::store_fd -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/thaw.al b/Master/tlpkg/tlperl/lib/auto/Storable/thaw.al deleted file mode 100644 index 495a71769eb..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/thaw.al +++ /dev/null @@ -1,28 +0,0 @@ -# NOTE: Derived from ..\..\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 404 "..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\thaw.al)" -# -# thaw -# -# Recreate objects in memory from an existing frozen image created -# by freeze. If the frozen image passed is undef, return undef. -# -sub thaw { - my ($frozen) = @_; - return undef unless defined $frozen; - my $self; - my $da = $@; # Could be from exception handler - eval { $self = mretrieve($frozen) }; # Call C routine - logcroak $@ if $@ =~ s/\.?\n$/,/; - $@ = $da; - return $self; -} - -1; -__END__ - -1; -# end of Storable::thaw |