Storable: use SvVSTRING() from ppport.h

Author: tonycoz

dist/Storable/Storable.xs

@@ -22,6 +22,7 @@
 #define NEED_newCONSTSUB
 #define NEED_newSVpvn_flags
 #define NEED_newRV_noinc
+#define NEED_sv_vstring_get
 #include "ppport.h"             /* handle old perls */
 
 #ifdef DEBUGGING
@@ -296,23 +297,6 @@ typedef STRLEN ntag_t;
 #define VSTRING_CROAK() CROAK(("Cannot retrieve vstring in this perl"))
 #endif
 
-#ifndef sv_vstring_get
-#define sv_vstring_get(sv,lenp) S_sv_vstring_get(aTHX_ sv,lenp)
-static const char *S_sv_vstring_get(pTHX_ SV *sv, STRLEN *lenp)
-{
-  MAGIC *mg;
-  if(!SvMAGICAL(sv) || !(mg = mg_find(sv, PERL_MAGIC_vstring)))
-    return NULL;
-
-  *lenp = mg->mg_len;
-  return mg->mg_ptr;
-}
-#endif
-
-#ifndef SvVSTRING
-#define SvVSTRING(sv,len)  (sv_vstring_get(sv, &(len)))
-#endif
-
 #ifdef HvPLACEHOLDERS
 #define HAS_RESTRICTED_HASHES
 #else

dist/Storable/lib/Storable.pm

@@ -30,7 +30,7 @@ our @EXPORT_OK = qw(
 our ($canonical, $forgive_me);
 
 BEGIN {
-    our $VERSION = '3.36';
+    our $VERSION = '3.37';
 }
 
 our $recursion_limit;