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: 5dd80d8) | patch
Stop readline(*$glob_copy) from clearing PL_last_in_gv
authorFather Chrysostomos <sprout@cpan.org>
Sun, 18 Dec 2011 21:34:44 +0000 (13:34 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 18 Dec 2011 21:34:44 +0000 (13:34 -0800)
commitb73e53856fd974960547b6620ff23e22cf981f7b
tree6642beb5bba45fb5f4cea6861773dee8fd109f69tree | snapshot
parent5dd80d85de04555d63d02b50785d3c62029a9375commit | diff
Stop readline(*$glob_copy) from clearing PL_last_in_gv

This is related to commit 8dc99089, which fixed a similar bug in tell.
In readline(*$glob_copy), the * makes a mortal copy of $glob_copy,
turning off its fake flag.  readline sets PL_last_in_gv to its argu-
ment, but it gets freed at the end of the statement and PL_last_in_gv
gets cleared.
op.c diff | blob | blame | history
t/op/readline.t diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.