Change 12631 by jhi@alpha on 2001/10/25 00:25:55
This takes care of some of the re 'debug' cases but
not all cases since the information whether the pattern
or the target are utf8 seems to be either lost or not
spread widely enough, sigh.
Affected files ...
... //depot/perl/regcomp.c#243 edit
Differences ...
==== //depot/perl/regcomp.c#243 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c.~1~ Wed Oct 24 18:30:06 2001
+++ perl/regcomp.c Wed Oct 24 18:30:06 2001
@@ -4411,10 +4411,11 @@
if (k == EXACT) {
SV *dsv = sv_2mortal(newSVpvn("", 0));
- char *s = 0 ?
+ bool do_utf8 = PL_reg_match_utf8;
+ char *s = do_utf8 ?
pv_uni_display(dsv, (U8*)STRING(o), STR_LEN(o), 60, 0) :
STRING(o);
- STRLEN len = 0 ?
+ STRLEN len = do_utf8 ?
strlen(s) :
STR_LEN(o);
Perl_sv_catpvf(aTHX_ sv, " <%s%.*s%s>",
End of Patch.
