[Summary view] [Print] [Text view]

   1  # NOTE: Derived from ../../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 "../../lib/Storable.pm (autosplit into ../../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