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: 0a872c7) | patch
Fix deparsing of require "a".$1
authorFather Chrysostomos <sprout@cpan.org>
Mon, 19 Dec 2011 04:48:40 +0000 (20:48 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 19 Dec 2011 04:48:40 +0000 (20:48 -0800)
commitc75b48285099abf58b5c90c62f8088a00a8c2b66
tree36cb59bf1232abcd8e94d1b0ee33119c00938b1ftree | snapshot
parent0a872c7df46b0d0c100826616b6580f25de86070commit | diff
Fix deparsing of require "a".$1

Commit 30fcd6c41 tried to deparse ‘no 6’ correctly by checking
whether the kidop of a require has the OPpCONST_NOVER flag set,
but it did not check the op type, so it ended up with a false
positive for any binop (OPpCONST_NOVER being 2).
dist/B-Deparse/Deparse.pm diff | blob | blame | history
dist/B-Deparse/t/deparse.t diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.