113 lines
2.8 KiB
Diff
113 lines
2.8 KiB
Diff
|
--- perl-5.8.8/t/op/lc.t.U27329 2005-11-07 09:22:36.000000000 -0500
|
||
|
|
+++ perl-5.8.8/t/op/lc.t 2006-06-01 22:02:13.000000000 -0400
|
||
|
|
@@ -6,7 +6,7 @@
|
||
|
|
require './test.pl';
|
||
|
|
}
|
||
|
|
|
||
|
|
-plan tests => 59;
|
||
|
|
+plan tests => 77;
|
||
|
|
|
||
|
|
$a = "HELLO.* world";
|
||
|
|
$b = "hello.* WORLD";
|
||
|
|
@@ -163,3 +163,38 @@
|
||
|
|
is($a, v10, "[perl #18857]");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
+
|
||
|
|
+
|
||
|
|
+# [perl #38619] Bug in lc and uc (interaction between UTF-8, substr, and lc/uc)
|
||
|
|
+
|
||
|
|
+for ("a\x{100}", "xyz\x{100}") {
|
||
|
|
+ is(substr(uc($_), 0), uc($_), "[perl #38619] uc");
|
||
|
|
+}
|
||
|
|
+for ("A\x{100}", "XYZ\x{100}") {
|
||
|
|
+ is(substr(lc($_), 0), lc($_), "[perl #38619] lc");
|
||
|
|
+}
|
||
|
|
+for ("a\x{100}", "ßyz\x{100}") { # ß to Ss (different length)
|
||
|
|
+ is(substr(ucfirst($_), 0), ucfirst($_), "[perl #38619] ucfirst");
|
||
|
|
+}
|
||
|
|
+
|
||
|
|
+# Related to [perl #38619]
|
||
|
|
+# the original report concerns PERL_MAGIC_utf8.
|
||
|
|
+# these cases concern PERL_MAGIC_regex_global.
|
||
|
|
+
|
||
|
|
+for (map { $_ } "a\x{100}", "abc\x{100}", "\x{100}") {
|
||
|
|
+ chop; # get ("a", "abc", "") in utf8
|
||
|
|
+ my $return = uc($_) =~ /\G(.?)/g;
|
||
|
|
+ my $result = $return ? $1 : "not";
|
||
|
|
+ my $expect = (uc($_) =~ /(.?)/g)[0];
|
||
|
|
+ is($return, 1, "[perl #38619]");
|
||
|
|
+ is($result, $expect, "[perl #38619]");
|
||
|
|
+}
|
||
|
|
+
|
||
|
|
+for (map { $_ } "A\x{100}", "ABC\x{100}", "\x{100}") {
|
||
|
|
+ chop; # get ("A", "ABC", "") in utf8
|
||
|
|
+ my $return = lc($_) =~ /\G(.?)/g;
|
||
|
|
+ my $result = $return ? $1 : "not";
|
||
|
|
+ my $expect = (lc($_) =~ /(.?)/g)[0];
|
||
|
|
+ is($return, 1, "[perl #38619]");
|
||
|
|
+ is($result, $expect, "[perl #38619]");
|
||
|
|
+}
|
||
|
|
--- perl-5.8.8/pp.c.U27329 2006-06-01 21:30:14.000000000 -0400
|
||
|
|
+++ perl-5.8.8/pp.c 2006-06-01 21:53:37.000000000 -0400
|
||
|
|
@@ -3447,7 +3447,8 @@
|
||
|
|
if (slen > ulen)
|
||
|
|
sv_catpvn(TARG, (char*)(s + ulen), slen - ulen);
|
||
|
|
SvUTF8_on(TARG);
|
||
|
|
- SETs(TARG);
|
||
|
|
+ sv = TARG;
|
||
|
|
+ SETs(sv);
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
s = (U8*)SvPV_force_nomg(sv, slen);
|
||
|
|
@@ -3502,7 +3503,8 @@
|
||
|
|
if (slen > ulen)
|
||
|
|
sv_catpvn(TARG, (char*)(s + ulen), slen - ulen);
|
||
|
|
SvUTF8_on(TARG);
|
||
|
|
- SETs(TARG);
|
||
|
|
+ sv = TARG;
|
||
|
|
+ SETs(sv);
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
s = (U8*)SvPV_force_nomg(sv, slen);
|
||
|
|
@@ -3552,7 +3554,8 @@
|
||
|
|
if (!len) {
|
||
|
|
SvUTF8_off(TARG); /* decontaminate */
|
||
|
|
sv_setpvn(TARG, "", 0);
|
||
|
|
- SETs(TARG);
|
||
|
|
+ sv = TARG;
|
||
|
|
+ SETs(sv);
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
STRLEN min = len + 1;
|
||
|
|
@@ -3585,7 +3588,8 @@
|
||
|
|
*d = '\0';
|
||
|
|
SvUTF8_on(TARG);
|
||
|
|
SvCUR_set(TARG, d - (U8*)SvPVX_const(TARG));
|
||
|
|
- SETs(TARG);
|
||
|
|
+ sv = TARG;
|
||
|
|
+ SETs(sv);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
@@ -3636,7 +3640,8 @@
|
||
|
|
if (!len) {
|
||
|
|
SvUTF8_off(TARG); /* decontaminate */
|
||
|
|
sv_setpvn(TARG, "", 0);
|
||
|
|
- SETs(TARG);
|
||
|
|
+ sv = TARG;
|
||
|
|
+ SETs(sv);
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
STRLEN min = len + 1;
|
||
|
|
@@ -3688,7 +3693,8 @@
|
||
|
|
*d = '\0';
|
||
|
|
SvUTF8_on(TARG);
|
||
|
|
SvCUR_set(TARG, d - (U8*)SvPVX_const(TARG));
|
||
|
|
- SETs(TARG);
|
||
|
|
+ sv = TARG;
|
||
|
|
+ SETs(sv);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else {
|