From: Michael G. Schwern <schwern@pobox.com>
Date: Tue, 13 Nov 2001 23:17:54 +0000 (-0500)
Subject: s/parse_perl/parse_body/
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4e49a025732cd45e6feb2178d3dd90c3506ac417;p=p5sagit%2Fp5-mst-13.2.git

s/parse_perl/parse_body/
Message-Id: <20011113231754.S32567@blackrider>

p4raw-id: //depot/perl@12992
---

diff --git a/perl.c b/perl.c
index 1d91940..8bb4f56 100644
--- a/perl.c
+++ b/perl.c
@@ -2273,7 +2273,7 @@ Perl_moreswitches(pTHX_ char *s)
 	        s++;
 	}
 	return s;
-    case 'I':	/* -I handled both here and in parse_perl() */
+    case 'I':	/* -I handled both here and in parse_body() */
 	forbid_setid("-I");
 	++s;
 	while (*s && isSPACE(*s))