Devel-PPPort: add SvVSTRING()

Author: tonycoz

dist/Devel-PPPort/parts/embed.fnc

@@ -1960,6 +1960,9 @@ Apd	|void	|sv_vcatpvfn_flags|NN SV *const sv|NN const char *const pat|const STRL
 Apd	|void	|sv_vsetpvfn	|NN SV *const sv|NN const char *const pat|const STRLEN patlen \
 				|NULLOK va_list *const args|NULLOK SV **const svargs \
 				|const Size_t sv_count|NULLOK bool *const maybe_tainted
+Adp	|const char *|sv_vstring_get					\
+				|NN SV * const sv			\
+				|NULLOK STRLEN *lenp
 CpR	|NV	|str_to_version	|NN SV *sv
 Ap	|void	|regdump	|NN const regexp* r
 CiTop	|struct regexp *|ReANY	|NN const REGEXP * const re

dist/Devel-PPPort/parts/inc/magic

@@ -23,6 +23,9 @@ SvUV_nomg
 SvNV_nomg
 SvTRUE_nomg
 
+sv_vstring_get
+SvVSTRING
+
 =implementation
 
 #undef  SvGETMAGIC
@@ -254,10 +257,36 @@ sv_unmagicext(pTHX_ SV *const sv, const int type, const MGVTBL *vtbl)
 #endif
 #endif
 
+__UNDEFINED__ SvVSTRING(sv, len)  (sv_vstring_get(sv, &(len)))
+__UNDEFINED__ SvVOK(sv) (FALSE)
+
+#if !defined(sv_vstring_get)
+
+#if { NEED sv_vstring_get }
+
+const char *
+sv_vstring_get(pTHX_ SV *sv, STRLEN *lenp)
+{
+#ifdef SvVOK
+    MAGIC *mg = SvVSTRING_mg(sv);
+    if (!mg) return NULL;
+
+    if (lenp) *lenp = mg->mg_len;
+    return mg->mg_ptr;
+#else
+    return NULL;
+#endif
+}
+
+#endif
+
+#endif
+
 =xsinit
 
 #define NEED_mg_findext
 #define NEED_sv_unmagicext
+#define NEED_sv_vstring_get
 
 #ifndef STATIC
 #define STATIC static
@@ -580,7 +609,26 @@ magic_SvPV_nomg_nolen(sv)
 
 #endif
 
-=tests plan => 63
+int
+SvVOK(sv)
+    SV *sv
+
+SV *
+SvVSTRING(sv)
+    SV *sv
+    CODE:
+    {
+        const char *vstr_pv;
+        STRLEN vstr_len;
+        if((vstr_pv = SvVSTRING(sv, vstr_len)))
+            RETVAL = newSVpvn(vstr_pv, vstr_len);
+        else
+            RETVAL = &PL_sv_undef;
+    }
+    OUTPUT:
+        RETVAL
+
+=tests plan => 65
 
 # Find proper magic
 ok(my $obj1 = Devel::PPPort->new_with_mg());
@@ -725,6 +773,13 @@ if (ivers($]) >= ivers("5.6")) {
 is tied($big)->{fetch}, 1;
 is tied($big)->{store}, 0;
 
+SKIP:
+{
+    my $vstr = eval "v1.23.456";
+    ok Devel::PPPort::SvVOK($vstr), '$vstr has SvVOK';
+    is Devel::PPPort::SvVSTRING($vstr), "v1.23.456", 'SvVSTRING()';
+}
+
 package TieScalarCounter;
 
 sub TIESCALAR {