Win32.xs check for PERL_REVISION

Perl · Jun 29, 2020 · 0940a3b · 0940a3b
1 parent 2413b1f
commit 0940a3b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cpan/Win32/Win32.xs b/cpan/Win32/Win32.xs
@@ -1501,7 +1501,7 @@ XS(w32_GetFullPathName)
     else {
         fullname = PerlDir_mapA(SvPV_nolen(ST(0)));
     }
-#  if PERL_VERSION < 8
+#  if PERL_REVISION == 5 && PERL_VERSION < 8
     {
         /* PerlDir_mapX() in Perl 5.6 used to return forward slashes */
         char *str = fullname;