From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 16 Oct 2009 09:47:14 +0000 (+0100)
Subject: Convert sv_2mortal(newSVpvn(...)) to newSVpvs_flags(..., SVs_TEMP)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=afce0a13caf9540b17869e0f39804bd5e44199c7;p=p5sagit%2Fp5-mst-13.2.git

Convert sv_2mortal(newSVpvn(...)) to newSVpvs_flags(..., SVs_TEMP)

Optionally use ppport.h to provide it for us.
---

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;