1*256a93a4Safresh1Test no feature multidimensional 2*256a93a4Safresh1 3*256a93a4Safresh1__END__ 4*256a93a4Safresh1# NAME simple 5*256a93a4Safresh1my $x = "a"; 6*256a93a4Safresh1my $y = "b"; 7*256a93a4Safresh1my %foo; 8*256a93a4Safresh1$foo{$x, $y} = "c"; 9*256a93a4Safresh1$foo{$y} = "d"; 10*256a93a4Safresh1print $foo{$x, $y}, "\n"; 11*256a93a4Safresh1no feature "multidimensional"; 12*256a93a4Safresh1print $foo{$x, $y}, "\n"; 13*256a93a4Safresh1$foo{$x, $y} = "e"; 14*256a93a4Safresh1print $foo{$y}, "\n"; 15*256a93a4Safresh1use feature "multidimensional"; 16*256a93a4Safresh1print $foo{$x, $y}, "\n"; 17*256a93a4Safresh1$foo{$x, $y} = "e"; 18*256a93a4Safresh1EXPECT 19*256a93a4Safresh1OPTIONS fatal 20*256a93a4Safresh1Multidimensional hash lookup is disabled at - line 8, near "$y}" 21*256a93a4Safresh1Multidimensional hash lookup is disabled at - line 9, near "$y}" 22*256a93a4Safresh1BEGIN not safe after errors--compilation aborted at - line 11. 23