s/parse_perl/parse_body/

Message-Id: <20011113231754.S32567@blackrider>

p4raw-id: //depot/perl@12992

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index 1d9194002c..8bb4f567c1 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))