Lines Matching refs:chr
187 foreach my $chr (60, 200, 600, 6000, 60000) {
189 my ($key, $value) = (chr ($chr) . "\x{ABCD}", "$chr\x{ABCD}");
198 my $tempval = sprintf '$utf8c{"\x{%x}"}', $chr;
200 $tempval = sprintf '@temp = ("\x{%x}" => undef)', $chr;
217 $tempval = sprintf '$temp{"\x{%x}"}', $chr;
219 $tempval = sprintf '@temp = ("\x{%x}" => undef)', $chr;
231 my $assign = sprintf '("\x{%x}" => "%d")', $chr, $chr;
240 $tempval = sprintf '$utf8a{"\x{%x}"}', $chr;
242 $tempval = sprintf '@temp = ("\x{%x}" => undef)', $chr;
259 $tempval = sprintf '$temp{"\x{%x}"}', $chr;
261 $tempval = sprintf '@temp = ("\x{%x}" => undef)', $chr;