summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/auto/Storable
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2011-02-17 12:20:49 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2011-02-17 12:20:49 +0000
commit316ee97c621496b0fe3267f57cce81bee44ca1e6 (patch)
treecb2cab1192b4f58a7971af19b213e980bceda4b4 /Master/tlpkg/tlperl/lib/auto/Storable
parentcd0f87b5d39480d85ad9bd4ee37f520f75bed560 (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')
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/.packlist28
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/BIN_VERSION_NV.al12
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/BIN_WRITE_VERSION_NV.al12
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/CAN_FLOCK.al21
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/Storable.bs0
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/Storable.dllbin72192 -> 0 bytes
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/_freeze.al23
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/_retrieve.al31
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/_store.al41
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/_store_fd.al27
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/autosplit.ix28
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/fd_retrieve.al25
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/file_magic.al21
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/freeze.al18
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/lock_nstore.al17
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/lock_retrieve.al17
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/lock_store.al17
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/logcarp.al12
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/logcroak.al17
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/nfreeze.al17
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/nstore.al17
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/nstore_fd.al18
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/read_magic.al69
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/retrieve.al18
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/show_file_magic.al30
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/store.al20
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/store_fd.al18
-rwxr-xr-xMaster/tlpkg/tlperl/lib/auto/Storable/thaw.al28
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
deleted file mode 100755
index 75306d3f82f..00000000000
--- a/Master/tlpkg/tlperl/lib/auto/Storable/Storable.dll
+++ /dev/null
Binary files differ
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