From afce0a13caf9540b17869e0f39804bd5e44199c7 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 16 Oct 2009 10:47:14 +0100
Subject: [PATCH] Convert sv_2mortal(newSVpvn(...)) to newSVpvs_flags(...,
 SVs_TEMP)

Optionally use ppport.h to provide it for us.
---
 dist/Storable/Storable.pm | 2 +-
 dist/Storable/Storable.xs | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/dist/Storable/Storable.pm b/dist/Storable/Storable.pm
index 2b1acb4..b60a5f6 100644
--- a/dist/Storable/Storable.pm
+++ b/dist/Storable/Storable.pm
@@ -23,7 +23,7 @@ use AutoLoader;
 use FileHandle;
 use vars qw($canonical $forgive_me $VERSION);
 
-$VERSION = '2.21';
+$VERSION = '2.22';
 *AUTOLOAD = \&AutoLoader::AUTOLOAD;		# Grrr...
 
 #
diff --git a/dist/Storable/Storable.xs b/dist/Storable/Storable.xs
index 2741c7d..8d8b629 100644
--- a/dist/Storable/Storable.xs
+++ b/dist/Storable/Storable.xs
@@ -17,10 +17,11 @@
 #include <patchlevel.h>		/* Perl's one, needed since 5.6 */
 #endif
 
-#if !defined(PERL_VERSION) || PERL_VERSION < 8
+#if !defined(PERL_VERSION) || PERL_VERSION < 8 || (PERL_VERSION == 8 && PERL_SUBVERSION < 9) || (PERL_VERSION == 10 && PERL_SUBVERSION < 1)
 #define NEED_load_module
 #define NEED_vload_module
 #define NEED_newCONSTSUB
+#define NEED_newSVpvn_flags
 #include "ppport.h"             /* handle old perls */
 #endif
 
@@ -2640,7 +2641,7 @@ static int store_code(pTHX_ stcxt_t *cxt, CV *cv)
 	 */
 
 	PUSHMARK(sp);
-	XPUSHs(sv_2mortal(newSVpvn("B::Deparse",10)));
+	XPUSHs(newSVpvs_flags("B::Deparse", SVs_TEMP));
 	PUTBACK;
 	count = call_method("new", G_SCALAR);
 	SPAGAIN;
-- 
2.7.4