From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 12 Aug 2003 11:54:32 +0000 (+0000)
Subject: Oops.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ae58f265e7fbff559e896a4f408bc1e68b2241e1;p=p5sagit%2Fp5-mst-13.2.git

Oops.

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

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);