From: Chris Ball <chris@cpan.org>
Date: Fri, 26 Jul 2002 17:49:35 +0000 (+0100)
Subject: Typo in regcomp.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6a0407ee995276fc0b143630fde4e4ee2a060014;p=p5sagit%2Fp5-mst-13.2.git

Typo in regcomp.c
   Message-Id: <868z3yzb6o.fsf@void.printf.net>
   (With additional tweak to s_reginclasslen.)

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

diff --git a/regcomp.c b/regcomp.c
index 3055876..cc283a6 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -4224,11 +4224,11 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state)
 	SV *rv;
 
 	/* The 0th element stores the character class description
-	 * in its textual form: used later (regexec.c:Perl_regclass_swatch())
+	 * in its textual form: used later (regexec.c:Perl_regclass_swash())
 	 * to initialize the appropriate swash (which gets stored in
 	 * the 1st element), and also useful for dumping the regnode.
 	 * The 2nd element stores the multicharacter foldings,
-	 * used later (regexec.c:s_reginclasslen()). */
+	 * used later (regexec.c:S_reginclass()). */
 	av_store(av, 0, listsv);
 	av_store(av, 1, NULL);
 	av_store(av, 2, (SV*)unicode_alternate);