Change 13112 by jhi@alpha on 2001/11/20 00:53:17
Subject: [PATCH perl.c] Extra diagnostics for -DP
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Mon, 19 Nov 2001 19:53:12 -0500
Message-ID: <20011119195311.I11883@blackrider>
Affected files ...
.... //depot/perl/perl.c#390 edit
Differences ...
==== //depot/perl/perl.c#390 (text) ====
Index: perl/perl.c
--- perl/perl.c.~1~ Mon Nov 19 18:00:05 2001
+++ perl/perl.c Mon Nov 19 18:00:05 2001
@@ -2776,6 +2776,11 @@
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);
End of Patch.
