X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/aa959a20b7e2dc9d2259242c6befcf620e6dfb5b..5fde9fa4cbe66ffa73af8a18a5042cb511c581a4:/dist/Data-Dumper/Dumper.xs

diff --git a/dist/Data-Dumper/Dumper.xs b/dist/Data-Dumper/Dumper.xs
index f763664..156cba1 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 && PERL_VERSION < 17
+# if !defined(PL_vtbl_vstring) && PERL_VERSION < 17
 	    SV * const vecsv = sv_newmortal();
 #  if PERL_VERSION < 10
 	    scan_vstring(mg->mg_ptr, vecsv);