X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FGitalist.git;a=blobdiff_plain;f=local-lib5%2Flib%2Fperl5%2Fi486-linux-gnu-thread-multi%2Fauto%2FStorable%2F_freeze.al;fp=local-lib5%2Flib%2Fperl5%2Fi486-linux-gnu-thread-multi%2Fauto%2FStorable%2F_freeze.al;h=8cc171d5472bd8a5b0ee89534ec1d265f10d5bda;hp=0000000000000000000000000000000000000000;hb=3fea05b9fbf95091f4522528b9980a33e0235603;hpb=af746827daa7a8feccee889e1d12ebc74cc9201e

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
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;