X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/bfa6c418906571a0809c2388a78539a223ec23b4..b3562f19ee0d76b60d176a0b1cfdac4f5f36785c:/perl.c

diff --git a/perl.c b/perl.c
index 95c36f7..291021c 100644
--- 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') {