This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lib/B/Deparse.pm: refactor a hash slightly
authorKarl Williamson <khw@cpan.org>
Wed, 31 Dec 2014 03:50:39 +0000 (20:50 -0700)
committerKarl Williamson <khw@cpan.org>
Wed, 31 Dec 2014 04:18:48 +0000 (21:18 -0700)
commitdd405ed7fddaa1954823f2ea01dd54e7f3730882
treeb06dddee7a3c9dbbe6c61d856727923ef050921a
parent784251768d925d81ed2e47a2e091b1fb0bf1324e
lib/B/Deparse.pm: refactor a hash slightly

Two of the three uses of this hash want the result to be of the form
"\cX".  The other wants "^X".  This changes the hash to be the common
substring to all three, and then the proper prefix is added to each.
lib/B/Deparse.pm