MD5.xs checks for PERL_REVISION

Perl · Jun 29, 2020 · 6053b26 · 6053b26
1 parent 431a301
commit 6053b26
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cpan/Digest-MD5/MD5.xs b/cpan/Digest-MD5/MD5.xs
@@ -83,7 +83,7 @@ static MAGIC *THX_sv_magicext(pTHX_ SV *sv, SV *obj, int type,
 }
 #endif
 
-#if PERL_VERSION < 8
+#if PERL_REVISION == 5 && PERL_VERSION < 8
 # undef SvPVbyte
 # define SvPVbyte(sv, lp) (sv_utf8_downgrade((sv), 0), SvPV((sv), (lp)))
 #endif