From 4e49a025732cd45e6feb2178d3dd90c3506ac417 Mon Sep 17 00:00:00 2001
From: "Michael G. Schwern" <schwern@pobox.com>
Date: Tue, 13 Nov 2001 18:17:54 -0500
Subject: s/parse_perl/parse_body/ Message-Id:
 <20011113231754.S32567@blackrider>

p4raw-id: //depot/perl@12992
---
 perl.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))
-- 
cgit v1.2.1