X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FData%2FDumper%2FDumper.xs;h=b09a023bcd2bacf04797135add0eb62b6824a897;hb=d1dd14d181429d212fd9a151420ef70f36122ded;hp=5ed117a63112119efa072cd9693226e6b503c5b4;hpb=91e53322c03d3284f882a9d8ea31418fd9ed2ec7;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/Data/Dumper/Dumper.xs b/ext/Data/Dumper/Dumper.xs
index 5ed117a..b09a023 100644
--- a/ext/Data/Dumper/Dumper.xs
+++ b/ext/Data/Dumper/Dumper.xs
@@ -439,7 +439,13 @@ DD_dump(pTHX_ SV *val, const char *name, STRLEN namelen, SV *retval, HV *seenhv,
 	(*levelp)++;
 	ipad = sv_x(aTHX_ Nullsv, SvPVX_const(xpad), SvCUR(xpad), *levelp);
 
-	if (realtype <= SVt_PVBM) {			     /* scalar ref */
+	if (
+#if PERL_VERSION < 9
+		realtype <= SVt_PVBM
+#else
+		realtype <= SVt_PVMG
+#endif
+	) {			     /* scalar ref */
 	    SV * const namesv = newSVpvn("${", 2);
 	    sv_catpvn(namesv, name, namelen);
 	    sv_catpvn(namesv, "}", 1);