Change 20647 by [EMAIL PROTECTED] on 2003/08/12 11:54:32
Oops.
Affected files ...
... //depot/perl/perl.c#519 edit
Differences ...
==== //depot/perl/perl.c#519 (text) ====
Index: perl/perl.c
--- perl/perl.c#518~20646~ Tue Aug 12 04:51:25 2003
+++ perl/perl.c Tue Aug 12 04:54:32 2003
@@ -2877,12 +2877,11 @@
}
else if (PL_preprocess) {
char *cpp_cfg = CPPSTDIN;
-
- if (cpp_cfg[0] == 0) /* PERL_MICRO? */
- Perl_croak(aTHX_ "Can't run with cpp -P with CPPSTDIN undefined");
SV *cpp = newSVpvn("",0);
SV *cmd = NEWSV(0,0);
+ if (cpp_cfg[0] == 0) /* PERL_MICRO? */
+ Perl_croak(aTHX_ "Can't run with cpp -P with CPPSTDIN undefined");
if (strEQ(cpp_cfg, "cppstdin"))
Perl_sv_catpvf(aTHX_ cpp, "%s/", BIN_EXP);
sv_catpv(cpp, cpp_cfg);
End of Patch.
