This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Teach B::Concise about OPpMAYBE_LVSUB
authorFather Chrysostomos <sprout@cpan.org>
Sat, 4 Jun 2011 05:14:41 +0000 (22:14 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 4 Jun 2011 05:14:41 +0000 (22:14 -0700)
ext/B/B/Concise.pm

index 25d908c..6155f93 100644 (file)
@@ -617,6 +617,7 @@ $priv{"gv"}{32} = "EARLYCV";
 $priv{"aelem"}{16} = $priv{"helem"}{16} = "LVDEFER";
 $priv{$_}{16} = "OURINTR" for ("gvsv", "rv2sv", "rv2av", "rv2hv", "r2gv",
        "enteriter");
+$priv{$_}{8} = 'LVSUB' for qw(rv2av rv2gv rv2hv padav padhv aelem helem);
 $priv{$_}{16} = "TARGMY"
   for (map(($_,"s$_"),"chop", "chomp"),
        map(($_,"i_$_"), "postinc", "postdec", "multiply", "divide", "modulo",