This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add a USING_MSVC6 macro to identify Microsoft Visual C++ 6.0
[perl5.git] / handy.h
diff --git a/handy.h b/handy.h
index 27fb18b..f80ba2c 100644 (file)
--- a/handy.h
+++ b/handy.h
@@ -125,7 +125,7 @@ Null SV pointer. (No longer available when C<PERL_CORE> is defined.)
 #if (defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L) || (defined(__SUNPRO_C)) /* C99 or close enough. */
 #  define FUNCTION__ __func__
 #else
-#  if (defined(_MSC_VER) && _MSC_VER < 1300) || /* MSVC6 has neither __func__ nor __FUNCTION and no good workarounds, either. */ \
+#  if (defined(USING_MSVC6)) || /* MSVC6 has neither __func__ nor __FUNCTION and no good workarounds, either. */ \
       (defined(__DECC_VER)) /* Tru64 or VMS, and strict C89 being used, but not modern enough cc (in Tur64, -c99 not known, only -std1). */
 #    define FUNCTION__ ""
 #  else