This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don't create local variables validarg and fdscript if they aren't going
authorNicholas Clark <nick@ccl4.org>
Fri, 18 Jan 2008 16:11:35 +0000 (16:11 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 18 Jan 2008 16:11:35 +0000 (16:11 +0000)
to be used.

p4raw-id: //depot/perl@33002

perl.c

diff --git a/perl.c b/perl.c
index 214d666..246412a 100644 (file)
--- 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);