From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 23 Feb 2009 23:37:35 +0000 (+0100)
Subject: In S_parse_body(), sv hasn't been needed since -P bit the dust.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ad3a6de0a2e8f154a56e5da4ace8c4f2cc900511;p=p5sagit%2Fp5-mst-13.2.git

In S_parse_body(), sv hasn't been needed since -P bit the dust.
(And probably should have been removed with change 32958,
2f3529075cdaceeaf619b8bd308885878ec9828a)
---

diff --git a/perl.c b/perl.c
index 67b4d5b..32c0a48 100644
--- a/perl.c
+++ b/perl.c
@@ -1642,7 +1642,6 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
     char **argv = PL_origargv;
     const char *scriptname = NULL;
     VOL bool dosearch = FALSE;
-    register SV *sv;
     register char c;
     const char *cddir = NULL;
 #ifdef USE_SITECUSTOMIZE
@@ -1654,8 +1653,6 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
     SvGROW(linestr_sv, 80);
     sv_setpvs(linestr_sv,"");
 
-    sv = newSVpvs("");		/* first used for -I flags */
-    SAVEFREESV(sv);
     init_main_stash();
 
     {
@@ -1750,9 +1747,6 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 	    if (s && *s) {
 		STRLEN len = strlen(s);
 		incpush(s, len, INCPUSH_ADD_SUB_DIRS|INCPUSH_ADD_OLD_VERS);
-		sv_catpvs(sv, "-I");
-		sv_catpvn(sv, s, len);
-		sv_catpvs(sv, " ");
 	    }
 	    else
 		Perl_croak(aTHX_ "No directory specified for -I");