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