diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-06-09 18:12:54 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-06-09 18:12:54 -0700 |
| commit | 6a8709a60c31d74562d0cb240c7a34a5768b3a94 (patch) | |
| tree | 40f427f0fb39479353cbe43c03db30412e551ac0 | |
| parent | 285bb66625cdbcfbe131a906530935c1a1dfbd93 (diff) | |
| download | perl-6a8709a60c31d74562d0cb240c7a34a5768b3a94.tar.gz | |
In B::Concise and op.h list all ops that use LVSUB
keys doesn’t actually use it yet, but it will soon.
| -rw-r--r-- | ext/B/B/Concise.pm | 3 | ||||
| -rw-r--r-- | op.h | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/ext/B/B/Concise.pm b/ext/B/B/Concise.pm index 6155f93805..f427fe6041 100644 --- a/ext/B/B/Concise.pm +++ b/ext/B/B/Concise.pm @@ -617,7 +617,8 @@ $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{$_}{8} = 'LVSUB' for qw(rv2av rv2gv rv2hv padav padhv aelem helem + aslice hslice av2arylen keys rkeys substr pos vec); $priv{$_}{16} = "TARGMY" for (map(($_,"s$_"),"chop", "chomp"), map(($_,"i_$_"), "postinc", "postdec", "multiply", "divide", "modulo", @@ -216,7 +216,8 @@ Deprecated. Use C<GIMME_V> instead. #define OPpLVAL_DEFER 16 /* Defer creation of array/hash elem */ /* OP_RV2?V, OP_GVSV, OP_ENTERITER only */ #define OPpOUR_INTRO 16 /* Variable was in an our() */ - /* OP_RV2[AGH]V, OP_PAD[AH]V, OP_[AH]ELEM */ + /* OP_RV2[AGH]V, OP_PAD[AH]V, OP_[AH]ELEM, OP_[AH]SLICE OP_AV2ARYLEN, + OP_R?KEYS, OP_SUBSTR, OP_POS, OP_VEC */ #define OPpMAYBE_LVSUB 8 /* We might be an lvalue to return */ /* OP_PADSV only */ #define OPpPAD_STATE 16 /* is a "state" pad */ |