require './test.pl';
}
-plan tests => 87;
+plan tests => 88;
$a = "HELLO.* world";
$b = "hello.* WORLD";
is(lc "\x{0130}" x $_, "i\x{307}" x $_, 'lc U+0130 grows');
}
+
+# bug #43207
+my $temp = "Hello";
+for ("$temp") {
+ lc $_;
+ is($_, "Hello");
+}