8 plan (tests => my $tests = 11);
10 # Run these at BEGIN time, before arybase loads
12 is(eval('$[ = 1; 123'), undef);
13 like($@, qr/\AAssigning non-zero to \$\[ is no longer possible/);
17 SKIP: { skip ("no arybase.xs on miniperl", $tests-2) }
22 no warnings 'deprecated';
25 is(eval('$[ = 0; 123'), 123);
26 is(eval('$[ = 1; 123'), 123);
28 ok $INC{'arybase.pm'};
31 is(eval('$[ = 1; 123'), undef);
32 like($@, qr/\AAssigning non-zero to \$\[ is no longer possible/);
33 is $[, 0, '$[ is 0 under 5.16';