From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Tue, 1 May 2001 14:14:10 +0000 (+0200)
Subject: Re: Finally got a round tuit
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=14953ddc1318e9fba9be49ee7cb7e12b8bc0c8ae;p=p5sagit%2Fp5-mst-13.2.git

Re: Finally got a round tuit
Message-Id: <20010501135740.19E4.H.M.BRAND@hccnet.nl>

The -DP part, slightly modified.

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

diff --git a/perl.c b/perl.c
index c57eaa8..0151338 100644
--- a/perl.c
+++ b/perl.c
@@ -2615,6 +2615,9 @@ S_open_script(pTHX_ char *scriptname, bool dosearch, SV *sv, int *fdscript)
 	sv_catpvn(sv, "-I", 2);
 	sv_catpv(sv,PRIVLIB_EXP);
 
+	DEBUG_P(PerlIO_printf(Perl_debug_log,
+			      "PL_preprocess: scriptname=\"%s\", cpp=\"%s\", sv=\"%s\", CPPMINUS=\"%s\"\n",
+			      scriptname, SvPVX (cpp), SvPVX (sv), CPPMINUS));
 #if defined(MSDOS) || defined(WIN32)
 	Perl_sv_setpvf(aTHX_ cmd, "\
 sed %s -e \"/^[^#]/b\" \