This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Deparse.pm: Put re flag logic into its own function
authorFather Chrysostomos <sprout@cpan.org>
Sat, 24 Dec 2011 06:22:18 +0000 (22:22 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 24 Dec 2011 06:26:39 +0000 (22:26 -0800)
commitc3ae113d42b1c27d42b34afa86d66f9f9915c56f
tree31bc854b97f4e561743db6e2785402ee11f961cb
parent09622ee266267b438af518e79985c5d26bfbbffd
Deparse.pm: Put re flag logic into its own function

Also, sort the flags so that matchwords still work.  It seems they never
did work properly for s///r, so this commit causes this Freudian slip:

$ perl5.14.2 -MO=Deparse -e 's///rose'
s//();/eros;
-e syntax OK

to become this:

$ ./perl -Ilib -MO=Deparse -e 's///sore'
s//();/rose;
-e syntax OK
dist/B-Deparse/Deparse.pm