From 14953ddc1318e9fba9be49ee7cb7e12b8bc0c8ae Mon Sep 17 00:00:00 2001 From: "H.Merijn Brand" Date: Tue, 1 May 2001 16:14:10 +0200 Subject: [PATCH] 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 --- perl.c | 3 +++ 1 file changed, 3 insertions(+) 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\" \ -- 2.7.4