Add built local::lib

[catagits/Gitalist.git] / local-lib5 / lib / perl5 / i486-linux-gnu-thread-multi / auto / Storable / _freeze.al

diff --git a/local-lib5/lib/perl5/i486-linux-gnu-thread-multi/auto/Storable/_freeze.al b/local-lib5/lib/perl5/i486-linux-gnu-thread-multi/auto/Storable/_freeze.al
new file mode 100644 (file)
index 0000000..8cc171d
--- /dev/null
+++ b/local-lib5/lib/perl5/i486-linux-gnu-thread-multi/auto/Storable/_freeze.al
@@ -0,0 +1,23 @@
+# NOTE: Derived from blib/lib/Storable.pm.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package Storable;
+
+#line 330 "blib/lib/Storable.pm (autosplit into blib/lib/auto/Storable/_freeze.al)"
+# Internal freeze routine
+sub _freeze {
+       my $xsptr = shift;
+       my $self = shift;
+       logcroak "not a reference" unless ref($self);
+       logcroak "too many arguments" unless @_ == 0;   # No @foo in arglist
+       my $da = $@;                            # Don't mess if called from exception handler
+       my $ret;
+       # Call C routine mstore or net_mstore, depending on network order
+       eval { $ret = &$xsptr($self) };
+       logcroak $@ if $@ =~ s/\.?\n$/,/;
+       $@ = $da;
+       return $ret ? $ret : undef;
+}
+
+# end of Storable::_freeze
+1;