Clarification and cleanup of the XS SWASHGET code

Subject: Re: XS-assisted SWASHGET (esp. for t/uni/class.t speedup)
Message-Id: <20051204162508.D726.BQW10602@nifty.com>

p4raw-id: //depot/perl@26255

1 files changed, 1 insertions, 1 deletions

diff --git a/regexec.c b/regexec.c
index ec13139c51..b0ba851340 100644
--- a/regexec.c
+++ b/regexec.c
@@ -4664,7 +4664,7 @@ Perl_regclass_swash(pTHX_ register const regnode* node, bool doinit, SV** listsv
 	    SV **const ary = AvARRAY(av);
 	    SV **a, **b;
 	
-	    /* See the end of regcomp.c:S_reglass() for
+	    /* See the end of regcomp.c:S_regclass() for
 	     * documentation of these array elements. */
 
 	    si = *ary;