6 use Test::More tests => 1;
9 skip 'This fails on perl 5.11.x even without using indirect' => 1
10 if "$]" >= 5.011 and "$]" < 5.012;
15 # Force %^H repopulation with an Unicode match
21 map { $_, defined $^H{$_} ? $^H{$_} : '(undef)' }
23 is $hints, 'a,1', 'indirect does not vivify entries in %^H';