Tryag File Manager
Home
-
Turbo Force
Current Path :
/
usr
/
lib
/
perl5
/
5.8.8
/
i386-linux-thread-multi
/
auto
/
Storable
/
Upload File :
New :
File
Dir
//usr/lib/perl5/5.8.8/i386-linux-thread-multi/auto/Storable/thaw.al
# 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/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