Clean up unused 'popt' variable in perl.c

From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510804141307n583c159eqa94af3a2e6b141b4@mail.gmail.com>
Date: Mon, 14 Apr 2008 16:07:42 -0400

p4raw-id: //depot/perl@33683

diff --git a/perl.c b/perl.c
index 95c36f7..291021c 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1977,7 +1977,6 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 #endif
        (s = PerlEnv_getenv("PERL5OPT")))
     {
-       const char *popt = s;
        while (isSPACE(*s))
            s++;
        if (*s == '-' && *(s+1) == 'T') {