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 (file)
--- 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))