From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 18 Jan 2008 16:11:35 +0000 (+0000)
Subject: Don't create local variables validarg and fdscript if they aren't going
X-Git-Tag: GitLive-blead~1319
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/829372d3895763a8b826b343859a01ae699a641e?ds=inline

Don't create local variables validarg and fdscript if they aren't going
to be used.

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

diff --git a/perl.c b/perl.c
index 214d666..246412a 100644
--- a/perl.c
+++ b/perl.c
@@ -1677,7 +1677,9 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
     char **argv = PL_origargv;
     const char *scriptname = NULL;
     VOL bool dosearch = FALSE;
+#ifdef DOSUID
     const char *validarg = "";
+#endif
     register SV *sv;
     register char c;
     const char *cddir = NULL;
@@ -2031,8 +2033,11 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 
     {
 	bool suidscript = FALSE;
-	const int fdscript
-	    = open_script(scriptname, dosearch, &suidscript, &rsfp);
+
+#ifdef DOSUID
+	const int fdscript =
+#endif
+	    open_script(scriptname, dosearch, &suidscript, &rsfp);
 
 	validate_suid(validarg, scriptname, fdscript, suidscript,
 		linestr_sv, rsfp);