This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 0057672) | patch
Fix crash with: undef *_; shift;
authorFather Chrysostomos <sprout@cpan.org>
Tue, 17 May 2016 07:03:09 +0000 (00:03 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 17 May 2016 07:24:47 +0000 (00:24 -0700)
commit94f9945d6a41925a75e4133e35315328b8f6dc39
tree6177d6d62d7fcd443fa53144dc4501b2718db111tree | snapshot
parent005767288eb2ed82608caafeaad3b0c1aed852fbcommit | diff
Fix crash with: undef *_; shift;

Commit v5.13.0-149-g538f575 added on optimisation to shift() that
makes pp_shift fetch @_ directly, instead of having two separate ops.

Unfortunately, it used the wrong macro, namely GvAV, instead of GvAVn.
The latter makes sure the array actually exists.
pp.c diff | blob | blame | history
t/op/array.t diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.