From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 25 Mar 2002 15:32:39 +0000 (+0000)
Subject: Forgotten from #15486.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=12a43e3246d84bddbf19150ef8589f55c08f4eea;p=p5sagit%2Fp5-mst-13.2.git

Forgotten from #15486.

p4raw-id: //depot/perl@15488
---

diff --git a/perl.c b/perl.c
index f5a272d..3c2861f 100644
--- a/perl.c
+++ b/perl.c
@@ -2288,8 +2288,13 @@ Perl_moreswitches(pTHX_ char *s)
 	    PL_debug = atoi(s+1);
 	    for (s++; isDIGIT(*s); s++) ;
 	}
+#if defined(EBCDIC) || defined(VMS)
+	if (DEBUG_p_TEST_ && ckWARN_d(WARN_DEBUGGING))
+	    Perl_warner(aTHX_ packWARN(WARN_DEBUGGING),
+		    "-Dp not implemented on this platform\n");
+#endif
 	PL_debug |= DEBUG_TOP_FLAG;
-#else
+#else /* !DEBUGGING */
 	if (ckWARN_d(WARN_DEBUGGING))
 	    Perl_warner(aTHX_ packWARN(WARN_DEBUGGING),
 	           "Recompile perl with -DDEBUGGING to use -D switch\n");