- if ($ro_bare_hk) {
- like $@, qr/Modification\s+of\s+a\s+read-only\s+value/,
- "uvar: change readonly key in store croaks ($i)";
- is_deeply \%h3, { a => 3, b => 5 },
- "uvar: change readonly key in store correcty ($i)";
- } else {
- is $@, '', "uvar: change readonly key in store croaks ($i)";
- is_deeply \%h3, { a => 3, b => 5, c => 6, (d => 7) x ($i >= 2) },
+ is $@, '', "uvar: change readonly key in store croaks ($i)";
+ is_deeply \%h3, { a => 3, b => 5, c => 5 + $i },