1 files changed, 1 insertions, 1 deletions
diff --git a/perl.c b/perl.c
index 3c2861f404..84ef3afd6c 100644
--- a/perl.c
+++ b/perl.c
@@ -2288,7 +2288,7 @@ Perl_moreswitches(pTHX_ char *s)
 	    PL_debug = atoi(s+1);
 	    for (s++; isDIGIT(*s); s++) ;
 	}
-#if defined(EBCDIC) || defined(VMS)
+#ifdef EBCDIC
 	if (DEBUG_p_TEST_ && ckWARN_d(WARN_DEBUGGING))
 	    Perl_warner(aTHX_ packWARN(WARN_DEBUGGING),
 		    "-Dp not implemented on this platform\n");