Current Path :
/
usr
/
lib64
/
perl5
/
auto
/
Storable
/
Or
Select Your Path :
Upload File :
New :
File
Dir
//usr/lib64/perl5/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 404 "../../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
