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/fd_retrieve.al | |
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/fd_retrieve.al')
-rw-r--r-- | Master/tlpkg/tlperl/lib/auto/Storable/fd_retrieve.al | 25 |
1 files changed, 0 insertions, 25 deletions
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; |