t/op/hashassign.t

198   my $tempval = sprintf '$utf8c{"\x{%x}"}', $chr;
199   is (eval $tempval, $value, "is key present? (maybe $tempval is optimised)");
200   $tempval = sprintf '@temp = ("\x{%x}" => undef)', $chr;
201   eval $tempval or die "'$tempval' gave $@";
202   is ($utf8c{$temp[0]}, $value, 'is key present? (using LHS of $tempval)');
217   $tempval = sprintf '$temp{"\x{%x}"}', $chr;
218   is (eval $tempval, $value, "is key present? (maybe $tempval is optimised)");
219   $tempval = sprintf '@temp = ("\x{%x}" => undef)', $chr;
220   eval $tempval or die "'$tempval' gave $@";
221   is ($temp{$temp[0]}, $value, "is key present? (using LHS of $tempval)");
240   $tempval = sprintf '$utf8a{"\x{%x}"}', $chr;
241   is (eval $tempval, $value, "is key present? (maybe $tempval is optimised)");
242   $tempval = sprintf '@temp = ("\x{%x}" => undef)', $chr;
243   eval $tempval or die "'$tempval' gave $@";
244   is ($utf8a{$temp[0]}, $value, "is key present? (using LHS of $tempval)");
259   $tempval = sprintf '$temp{"\x{%x}"}', $chr;
260   is (eval $tempval, $value, "is key present? (maybe $tempval is optimised)");
261   $tempval = sprintf '@temp = ("\x{%x}" => undef)', $chr;
262   eval $tempval or die "'$tempval' gave $@";
263   is ($temp{$temp[0]}, $value, "is key present? (using LHS of $tempval)");