diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-11-19 14:53:12 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-20 00:53:17 +0000 |
| commit | 0a6c758de4286f25ba3c72dc1f4b80773e160768 (patch) | |
| tree | 144591b6450cc8a9e4c8cc70ab526e104c1f2dd6 /perl.c | |
| parent | 12bc563b0f63f0cc7be11a45a369b3fd09df569e (diff) | |
| download | perl-0a6c758de4286f25ba3c72dc1f4b80773e160768.tar.gz | |
Extra diagnostics for -DP
Message-ID: <20011119195311.I11883@blackrider>
p4raw-id: //depot/perl@13112
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -2776,6 +2776,11 @@ sed %s -e \"/^[^#]/b\" \ Perl_croak(aTHX_ "Can't do seteuid!\n"); } #endif /* IAMSUID */ + + DEBUG_P(PerlIO_printf(Perl_debug_log, + "PL_preprocess: cmd=\"%s\"\n", + SvPVX(cmd))); + PL_rsfp = PerlProc_popen(SvPVX(cmd), "r"); SvREFCNT_dec(cmd); SvREFCNT_dec(cpp); |