From ae58f265e7fbff559e896a4f408bc1e68b2241e1 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Tue, 12 Aug 2003 11:54:32 +0000 Subject: [PATCH] Oops. p4raw-id: //depot/perl@20647 --- perl.c | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/perl.c b/perl.c index 0a3ec0f..0569d5b 100644 --- a/perl.c +++ b/perl.c @@ -2877,12 +2877,11 @@ S_open_script(pTHX_ char *scriptname, bool dosearch, SV *sv, int *fdscript) } 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); -- 2.7.4