local-lib5/lib/perl5/i486-linux-gnu-thread-multi/auto/Storable/thaw.al

   1 # NOTE: Derived from blib/lib/Storable.pm.
   2 # Changes made here will be lost when autosplit is run again.
   3 # See AutoSplit.pm.
   4 package Storable;
   5
   6 #line 404 "blib/lib/Storable.pm (autosplit into blib/lib/auto/Storable/thaw.al)"
   7 #
   8 # thaw
   9 #
  10 # Recreate objects in memory from an existing frozen image created
  11 # by freeze.  If the frozen image passed is undef, return undef.
  12 #
  13 sub thaw {
  14         my ($frozen) = @_;
  15         return undef unless defined $frozen;
  16         my $self;
  17         my $da = $@;                                                    # Could be from exception handler
  18         eval { $self = mretrieve($frozen) };    # Call C routine
  19         logcroak $@ if $@ =~ s/\.?\n$/,/;
  20         $@ = $da;
  21         return $self;
  22 }
  23
  24 1;
  25 __END__
  26
  27 1;
  28 # end of Storable::thaw