regexec.c: Handle sharp s in middle of backref

This code handled some of the case of the LATIN SMALL LETTER SHARP S at
the beginning of a back ref, but not in the middle.  To do it easily,
just call the function that handles our full Unicode folding

1 files changed, 1 insertions, 4 deletions

diff --git a/regexec.c b/regexec.c
index cf8a68f7cd..1b608a176f 100644
--- a/regexec.c
+++ b/regexec.c
@@ -4104,10 +4104,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog)
 
 	    s = PL_bostr + ln;
 	    if (type != REF	/* REF can do byte comparison */
-		&& (utf8_target
-                    || (type == REFFU
-                        && (*s == (char) LATIN_SMALL_LETTER_SHARP_S
-                            || *locinput == (char) LATIN_SMALL_LETTER_SHARP_S))))
+		&& (utf8_target || type == REFFU))
 	    { /* XXX handle REFFL better */
 		char * limit = PL_regeol;