local-lib5/lib/perl5/i486-linux-gnu-thread-multi/auto/Storable/_freeze.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 330 "blib/lib/Storable.pm (autosplit into blib/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;