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: a64296a) | patch
fix leak in do { ... } while 0
authorDavid Mitchell <davem@iabyn.com>
Fri, 12 Apr 2019 13:52:27 +0000 (14:52 +0100)
committerDavid Mitchell <davem@iabyn.com>
Fri, 12 Apr 2019 14:58:04 +0000 (15:58 +0100)
commit78bb3b143c41ff368fdc4a87f7e9bf36b3023ca2
tree098b019230402fa3107ba0f1f4c91c17253be4cetree | snapshot
parenta64296af735e8e25c8a1b58cd36a97211c371ac4commit | diff
fix leak in do { ... } while 0

The op tree for

    do X while 0

is simplified to

    X

but the const OP for the '0' wasn't being freed and so leaked.
op.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.