diff options
author | Father Chrysostomos <sprout@cpan.org> | 2012-07-28 00:39:41 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-07-28 22:20:04 -0700 |
commit | 153920a10f42560914e3260d6a282b2f08eddfa5 (patch) | |
tree | 6ab0a403d86810ad666c4d188ade25c3fa01455f /dist | |
parent | 915268060395b06c8b4ca80ac2b7a4de7fc4bec0 (diff) | |
download | perl-153920a10f42560914e3260d6a282b2f08eddfa5.tar.gz |
Dumper.xs: Avoid scan_vstring on 5.17.3
Now that vstring set-magic is gone (4499db7385), there is no
PL_vtbl_vstring, so we cannot use it for detecting vstring
bugginess.
Diffstat (limited to 'dist')
-rw-r--r-- | dist/Data-Dumper/Dumper.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dist/Data-Dumper/Dumper.xs b/dist/Data-Dumper/Dumper.xs index 91e4c6cdb0..f763664714 100644 --- a/dist/Data-Dumper/Dumper.xs +++ b/dist/Data-Dumper/Dumper.xs @@ -1009,7 +1009,7 @@ DD_dump(pTHX_ SV *val, const char *name, STRLEN namelen, SV *retval, HV *seenhv, } #ifdef SvVOK else if (SvMAGICAL(val) && (mg = mg_find(val, 'V'))) { -# ifndef PL_vtbl_vstring +# ifndef PL_vtbl_vstring && PERL_VERSION < 17 SV * const vecsv = sv_newmortal(); # if PERL_VERSION < 10 scan_vstring(mg->mg_ptr, vecsv); |