diff options
| author | H.Merijn Brand <h.m.brand@xs4all.nl> | 2001-05-01 16:14:10 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-01 15:12:26 +0000 |
| commit | 14953ddc1318e9fba9be49ee7cb7e12b8bc0c8ae (patch) | |
| tree | 090ff5803b115bac71e336ccb809523cd72ea911 /perl.c | |
| parent | 781588a5a21bdfbec678303791d7d19fbc68f66b (diff) | |
| download | perl-14953ddc1318e9fba9be49ee7cb7e12b8bc0c8ae.tar.gz | |
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
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -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\" \ |