From: Michael G. Schwern <schwern@pobox.com>
Date: Mon, 19 Nov 2001 19:53:12 +0000 (-0500)
Subject: Extra diagnostics for -DP
X-Git-Tag: accepted/trunk/20130322.191538~29354
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0a6c758de4286f25ba3c72dc1f4b80773e160768;p=platform%2Fupstream%2Fperl.git

Extra diagnostics for -DP
Message-ID: <20011119195311.I11883@blackrider>

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

diff --git a/perl.c b/perl.c
index 552d764..710ae84 100644
--- a/perl.c
+++ b/perl.c
@@ -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);