This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix up exists etc deparsing
authorDavid Mitchell <davem@iabyn.com>
Fri, 22 Jul 2016 11:19:03 +0000 (12:19 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 3 Aug 2016 19:54:41 +0000 (20:54 +0100)
commit29e6e3b9ec4c49efe5983d0e681f1e4bbffa8f98
tree4b270486b26aec4d7c18bce7342d95360c6267a8
parent9fe5784b4a7b013263f10dbe4fa029d61b9a1b60
fix up exists etc deparsing

a general multideref expression like

    exists +($r//{})->{foo}

was being deparsed without the '+', meaning it was being interpreted
as

    (exists ($r//{}))->{foo}
lib/B/Deparse.pm