diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 12:20:49 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-02-17 12:20:49 +0000 |
commit | 316ee97c621496b0fe3267f57cce81bee44ca1e6 (patch) | |
tree | cb2cab1192b4f58a7971af19b213e980bceda4b4 /Master/tlpkg/tlperl/lib/auto/Storable | |
parent | cd0f87b5d39480d85ad9bd4ee37f520f75bed560 (diff) |
Moving old tlperl prior to committing new one
git-svn-id: svn://tug.org/texlive/trunk@21422 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/Storable')
28 files changed, 0 insertions, 602 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/.packlist b/Master/tlpkg/tlperl/lib/auto/Storable/.packlist deleted file mode 100755 index 71cadc6ec1c..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/.packlist +++ /dev/null @@ -1,28 +0,0 @@ -C:\strawberry\perl\lib\Storable.pm
-C:\strawberry\perl\lib\auto\Storable\BIN_VERSION_NV.al
-C:\strawberry\perl\lib\auto\Storable\BIN_WRITE_VERSION_NV.al
-C:\strawberry\perl\lib\auto\Storable\CAN_FLOCK.al
-C:\strawberry\perl\lib\auto\Storable\Storable.bs
-C:\strawberry\perl\lib\auto\Storable\Storable.dll
-C:\strawberry\perl\lib\auto\Storable\_freeze.al
-C:\strawberry\perl\lib\auto\Storable\_retrieve.al
-C:\strawberry\perl\lib\auto\Storable\_store.al
-C:\strawberry\perl\lib\auto\Storable\_store_fd.al
-C:\strawberry\perl\lib\auto\Storable\autosplit.ix
-C:\strawberry\perl\lib\auto\Storable\fd_retrieve.al
-C:\strawberry\perl\lib\auto\Storable\file_magic.al
-C:\strawberry\perl\lib\auto\Storable\freeze.al
-C:\strawberry\perl\lib\auto\Storable\lock_nstore.al
-C:\strawberry\perl\lib\auto\Storable\lock_retrieve.al
-C:\strawberry\perl\lib\auto\Storable\lock_store.al
-C:\strawberry\perl\lib\auto\Storable\logcarp.al
-C:\strawberry\perl\lib\auto\Storable\logcroak.al
-C:\strawberry\perl\lib\auto\Storable\nfreeze.al
-C:\strawberry\perl\lib\auto\Storable\nstore.al
-C:\strawberry\perl\lib\auto\Storable\nstore_fd.al
-C:\strawberry\perl\lib\auto\Storable\read_magic.al
-C:\strawberry\perl\lib\auto\Storable\retrieve.al
-C:\strawberry\perl\lib\auto\Storable\show_file_magic.al
-C:\strawberry\perl\lib\auto\Storable\store.al
-C:\strawberry\perl\lib\auto\Storable\store_fd.al
-C:\strawberry\perl\lib\auto\Storable\thaw.al
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 100755 index bd620b054d5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/BIN_VERSION_NV.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 192 "blib\lib\Storable.pm (autosplit into blib\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 100755 index 8a20f970983..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/BIN_WRITE_VERSION_NV.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 196 "blib\lib\Storable.pm (autosplit into blib\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 100755 index de43b1a3c89..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/CAN_FLOCK.al +++ /dev/null @@ -1,21 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 83 "blib\lib\Storable.pm (autosplit into blib\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.bs b/Master/tlpkg/tlperl/lib/auto/Storable/Storable.bs deleted file mode 100755 index e69de29bb2d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/Storable.bs +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/Storable.dll b/Master/tlpkg/tlperl/lib/auto/Storable/Storable.dll Binary files differdeleted file mode 100755 index 75306d3f82f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/Storable.dll +++ /dev/null diff --git a/Master/tlpkg/tlperl/lib/auto/Storable/_freeze.al b/Master/tlpkg/tlperl/lib/auto/Storable/_freeze.al deleted file mode 100755 index 87918bd5b11..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/_freeze.al +++ /dev/null @@ -1,23 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 330 "blib\lib\Storable.pm (autosplit into blib\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 100755 index 5a798322ea8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/_retrieve.al +++ /dev/null @@ -1,31 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 364 "blib\lib\Storable.pm (autosplit into blib\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 100755 index 9eade5dfe86..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/_store.al +++ /dev/null @@ -1,41 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 239 "blib\lib\Storable.pm (autosplit into blib\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 100755 index ce3def2cfc8..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/_store_fd.al +++ /dev/null @@ -1,27 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 292 "blib\lib\Storable.pm (autosplit into blib\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 100755 index 04fcedf21c0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/autosplit.ix +++ /dev/null @@ -1,28 +0,0 @@ -# Index created by AutoSplit for blib\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 100755 index 93f9f18a835..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/fd_retrieve.al +++ /dev/null @@ -1,25 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 387 "blib\lib\Storable.pm (autosplit into blib\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 100755 index 532ab40ba60..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/file_magic.al +++ /dev/null @@ -1,21 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 118 "blib\lib\Storable.pm (autosplit into blib\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 100755 index cb95bf29970..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/freeze.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 311 "blib\lib\Storable.pm (autosplit into blib\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 100755 index acd4cde5650..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/lock_nstore.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 230 "blib\lib\Storable.pm (autosplit into blib\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 100755 index 41290bcd00d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/lock_retrieve.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 355 "blib\lib\Storable.pm (autosplit into blib\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 100755 index 1c94e960fab..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/lock_store.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 221 "blib\lib\Storable.pm (autosplit into blib\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 100755 index 58642b8ba1f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/logcarp.al +++ /dev/null @@ -1,12 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 79 "blib\lib\Storable.pm (autosplit into blib\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 100755 index fd37cfe86e0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/logcroak.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 70 "blib\lib\Storable.pm (autosplit into blib\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 100755 index c79d3cf3c3d..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/nfreeze.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 321 "blib\lib\Storable.pm (autosplit into blib\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 100755 index 395635f5e2b..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/nstore.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 212 "blib\lib\Storable.pm (autosplit into blib\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 100755 index bf359c31991..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/nstore_fd.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 282 "blib\lib\Storable.pm (autosplit into blib\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 100755 index f98dbb156c7..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/read_magic.al +++ /dev/null @@ -1,69 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 131 "blib\lib\Storable.pm (autosplit into blib\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 100755 index 284565257d5..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/retrieve.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 345 "blib\lib\Storable.pm (autosplit into blib\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 100755 index 2f7abe325c0..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/show_file_magic.al +++ /dev/null @@ -1,30 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 96 "blib\lib\Storable.pm (autosplit into blib\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 100755 index 48ed4b12ac3..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/store.al +++ /dev/null @@ -1,20 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 200 "blib\lib\Storable.pm (autosplit into blib\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 100755 index 01a5ba2aaeb..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/store_fd.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 272 "blib\lib\Storable.pm (autosplit into blib\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 100755 index 5349dfcc054..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Storable/thaw.al +++ /dev/null @@ -1,28 +0,0 @@ -# NOTE: Derived from blib\lib\Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 404 "blib\lib\Storable.pm (autosplit into blib\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 |