[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 (file)
--- 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 */
 }
 
 /*