This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Clean up unused 'popt' variable in perl.c
[perl5.git] / perl.c
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') {