This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix C pre-processor expression in Dumper.xs
[perl5.git] / dist / Data-Dumper / Dumper.xs
index f763664..156cba1 100644 (file)
@@ -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'))) {
        }
 #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);
            SV * const vecsv = sv_newmortal();
 #  if PERL_VERSION < 10
            scan_vstring(mg->mg_ptr, vecsv);