From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Mon, 14 Apr 2008 16:07:42 +0000 (-0400)
Subject: Clean up unused 'popt' variable in perl.c
X-Git-Tag: accepted/trunk/20130322.191538~13237
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=b3562f19ee0d76b60d176a0b1cfdac4f5f36785c;p=platform%2Fupstream%2Fperl.git

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
--- 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') {