This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don’t crash with $tied[-1] when array is tied to non-obj
authorFather Chrysostomos <sprout@cpan.org>
Sun, 28 Oct 2012 08:48:18 +0000 (01:48 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 28 Oct 2012 09:04:59 +0000 (02:04 -0700)
commitac9f75b57c64f1cbeaf0caa63e0962e19df8d71a
tree4a503d255c72b2a2961c10d420d3ba91f6f07284
parent0960ff5ae77d081b538d8f0690367bb5144cf1c1
Don’t crash with $tied[-1] when array is tied to non-obj

The code for checking to see whether $NEGATIVE_INDICES is defined in
the tie package was very fragile, and was repeated four times.
av.c
t/op/tie.t