diff --git a/perl.h b/perl.h
index 6d7bb0229aa7..8b45e7f19106 100644
--- a/perl.h
+++ b/perl.h
@@ -4979,6 +4979,23 @@ Gid_t getegid (void);
  * compiled in; they will be executed only for the DEBUG statements whose flags
  * are turned on.
  */
+#if ! defined(DEBUG_PRE_STMTS) && ! defined(PERL_IN_REGEX_ENGINE)
+#ifdef DEBUGGING
+#  if defined(USE_ITHREADS) && ! defined(NO_LOCALE_THREADS)
+#    define DEBUG_PRE_STMTS                                                     \
+     dSAVE_ERRNO; dTHX; PerlIO_printf(Perl_debug_log,"\n%s: %" LINE_Tf ": 0x%p: ",\
+                                      __FILE__, (line_t)__LINE__, aTHX);
+#  else
+#    define DEBUG_PRE_STMTS                                                     \
+     dSAVE_ERRNO; dTHX; PerlIO_printf(Perl_debug_log, "\n%s: %" LINE_Tf ": ",   \
+                                      __FILE__, (line_t)__LINE__);
+#  endif
+#  define DEBUG_POST_STMTS  RESTORE_ERRNO;
+#else
+#  define DEBUG_PRE_STMTS
+#  define DEBUG_POST_STMTS
+#endif
+#endif
 #ifndef DEBUG_PRE_STMTS
 #  define DEBUG_PRE_STMTS
 #endif
diff --git a/t/run/switchDx.t b/t/run/switchDx.t
index e59e5560340d..aedd7e99cdad 100644
--- a/t/run/switchDx.t
+++ b/t/run/switchDx.t
@@ -4,6 +4,7 @@ BEGIN {
     @INC = '../lib';
     require './test.pl';
     skip_all_if_miniperl();
+    skip_all("because of special debug");
 }
 
 use Config;