1Test no feature multidimensional
2
3__END__
4# NAME simple
5my $x = "a";
6my $y = "b";
7my %foo;
8$foo{$x, $y} = "c";
9$foo{$y} = "d";
10print $foo{$x, $y}, "\n";
11no feature "multidimensional";
12print $foo{$x, $y}, "\n";
13$foo{$x, $y} = "e";
14print $foo{$y}, "\n";
15use feature "multidimensional";
16print $foo{$x, $y}, "\n";
17$foo{$x, $y} = "e";
18EXPECT
19OPTIONS fatal
20Multidimensional hash lookup is disabled at - line 8, near "$y}"
21Multidimensional hash lookup is disabled at - line 9, near "$y}"
22BEGIN not safe after errors--compilation aborted at - line 11.
23