[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 330 "../../lib/Storable.pm (autosplit into ../../lib/auto/Storable/_freeze.al)"
   7  # Internal freeze routine
   8  sub _freeze {
   9      my $xsptr = shift;
  10      my $self = shift;
  11      logcroak "not a reference" unless ref($self);
  12      logcroak "too many arguments" unless @_ == 0;    # No @foo in arglist
  13      my $da = $@;                # Don't mess if called from exception handler
  14      my $ret;
  15      # Call C routine mstore or net_mstore, depending on network order
  16      eval { $ret = &$xsptr($self) };
  17      logcroak $@ if $@ =~ s/\.?\n$/,/;
  18      $@ = $da;
  19      return $ret ? $ret : undef;
  20  }
  21  
  22  # end of Storable::_freeze
  23  1;