diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/Storable/read_magic.al')
-rwxr-xr-x | Master/tlpkg/tlperl/lib/auto/Storable/read_magic.al | 69 |
1 files changed, 0 insertions, 69 deletions
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; |