diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-06-03 22:14:41 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-06-03 22:14:41 -0700 |
| commit | 560915b9b730a866bc0c90f927bbfa2375ca7dee (patch) | |
| tree | f0810beb6a3ba44c4b8b1a0befcfe7af835468bb /ext | |
| parent | d49f3b80ec5e6dbd30ce142d75f143ed7d313e1e (diff) | |
| download | perl-560915b9b730a866bc0c90f927bbfa2375ca7dee.tar.gz | |
Teach B::Concise about OPpMAYBE_LVSUB
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Concise.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index 25d908c0f3..6155f93805 100644 --- a/ext/B/B/Concise.pm +++ b/ext/B/B/Concise.pm @@ -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", |