From: Steven N. Hirsch <hirschs@stargate.btv.ibm.com>
Date: Fri, 19 Nov 2004 13:06:57 +0000 (+0000)
Subject: [perl #32503] Fix for Storable module
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0b6a08b277db5e6f28a0032a7a0467c048570624;p=p5sagit%2Fp5-mst-13.2.git

[perl #32503] Fix for Storable module
From: "Steven N. Hirsch" (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-32503-100597.6.46123979926323@perl.org>

p4raw-id: //depot/perl@23852
---

diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs
index 21cb333..c20011e 100644
--- a/ext/Storable/Storable.xs
+++ b/ext/Storable/Storable.xs
@@ -1158,6 +1158,7 @@ static void init_perinterp(pTHX)
 
     cxt->netorder = 0;		/* true if network order used */
     cxt->forgive_me = -1;	/* whether to be forgiving... */
+    cxt->accept_future_minor = -1; /* would otherwise occur too late */
 }
 
 /*