diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-10-16 10:47:14 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-10-16 10:53:13 +0100 |
| commit | afce0a13caf9540b17869e0f39804bd5e44199c7 (patch) | |
| tree | 65e193e41f7e9b54634a397b1a13e7453f9ee843 /dist/Storable | |
| parent | 163ba113b958ebef4215df1e1b04445b4a85504f (diff) | |
| download | perl-afce0a13caf9540b17869e0f39804bd5e44199c7.tar.gz | |
Convert sv_2mortal(newSVpvn(...)) to newSVpvs_flags(..., SVs_TEMP)
Optionally use ppport.h to provide it for us.
Diffstat (limited to 'dist/Storable')
| -rw-r--r-- | dist/Storable/Storable.pm | 2 | ||||
| -rw-r--r-- | 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 2b1acb4ea9..b60a5f6b63 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 2741c7d30e..8d8b6299f3 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; |