Attachment #3305 for bug #3787

View | Details | Raw Unified | Return to bug 3787
Collapse All | Expand All

Lines 6-12 Link Here

(-)perl-5.8.7ORIG/t/op/pat.t (-2 / +12 lines)
6		6
7	$\| = 1;	7	$\| = 1;
8		8
9	print "1..1065\n";	9	print "1..1067\n";
10		10
11	BEGIN {	11	BEGIN {
12	chdir 't' if -d 't';	12	chdir 't' if -d 't';
Lines 3278-3281 Link Here
3278	ok(("abc" =~ /^abc(\z)??/) && !defined($1),	3278	ok(("abc" =~ /^abc(\z)??/) && !defined($1),
3279	'optional zero-width match at end of string');	3279	'optional zero-width match at end of string');
3280		3280
3281	# last test 1065	3281
		3282	# [perl #36207] mixed utf8 / latin-1 and case folding
		3283
		3284	{
		3285	my $u = "\xe9\x{100}";
		3286	chop $u;
		3287	ok($u =~ /\xe9/i, "utf8/latin");
		3288	ok("\xe9" =~ /$u/i, "# TODO latin/utf8");
		3289	}
		3290
		3291	# last test 1067

Lines 1981-1987 Link Here

(-)perl-5.8.7ORIG/utf8.c (-2 / +2 lines)
1981	if (u1)	1981	if (u1)
1982	to_utf8_fold(p1, foldbuf1, &foldlen1);	1982	to_utf8_fold(p1, foldbuf1, &foldlen1);
1983	else {	1983	else {
1984	natbuf[0] = *p1;	1984	uvuni_to_utf8(natbuf, (UV) NATIVE_TO_UNI(((UV)*p1)));
1985	to_utf8_fold(natbuf, foldbuf1, &foldlen1);	1985	to_utf8_fold(natbuf, foldbuf1, &foldlen1);
1986	}	1986	}
1987	q1 = foldbuf1;	1987	q1 = foldbuf1;
Lines 1991-1997 Link Here
1991	if (u2)	1991	if (u2)
1992	to_utf8_fold(p2, foldbuf2, &foldlen2);	1992	to_utf8_fold(p2, foldbuf2, &foldlen2);
1993	else {	1993	else {
1994	natbuf[0] = *p2;	1994	uvuni_to_utf8(natbuf, (UV) NATIVE_TO_UNI(((UV)*p2)));
1995	to_utf8_fold(natbuf, foldbuf2, &foldlen2);	1995	to_utf8_fold(natbuf, foldbuf2, &foldlen2);
1996	}	1996	}
1997	q2 = foldbuf2;	1997	q2 = foldbuf2;

Return to bug 3787