projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
12bc563
)
Extra diagnostics for -DP
author
Michael G. Schwern
<schwern@pobox.com>
Mon, 19 Nov 2001 19:53:12 +0000
(14:53 -0500)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Tue, 20 Nov 2001 00:53:17 +0000
(
00:53
+0000)
Message-ID: <
20011119195311
.I11883@blackrider>
p4raw-id: //depot/perl@13112
perl.c
patch
|
blob
|
history
diff --git
a/perl.c
b/perl.c
index
552d764
..
710ae84
100644
(file)
--- 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);