diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-10-06 22:12:27 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-10-11 00:10:17 -0700 |
| commit | 9187b6e4099587c2d80ba27befd977a38989b202 (patch) | |
| tree | f0de7e95be1deab379e52d7252cbf763a225ba55 /ext/B/t/concise-xs.t | |
| parent | 3813a8f3579252f8cb0306f476c68a1371e07199 (diff) | |
| download | perl-9187b6e4099587c2d80ba27befd977a38989b202.tar.gz | |
Deparse lvalue references
Diffstat (limited to 'ext/B/t/concise-xs.t')
| -rw-r--r-- | ext/B/t/concise-xs.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ext/B/t/concise-xs.t b/ext/B/t/concise-xs.t index dce0a2e2e8..865a16480b 100644 --- a/ext/B/t/concise-xs.t +++ b/ext/B/t/concise-xs.t @@ -158,6 +158,7 @@ my $testpkgs = { constant => [qw/ ASSIGN CVf_LVALUE CVf_METHOD LIST_CONTEXT OP_CONST OP_LIST OP_RV2SV + OP_AELEM OP_STRINGIFY OPf_KIDS OPf_MOD OPf_REF OPf_SPECIAL OPf_PARENS OPf_STACKED OPf_WANT OPf_WANT_LIST OPf_WANT_SCALAR @@ -180,6 +181,9 @@ my $testpkgs = { OPpEVAL_BYTES OPpSUBSTR_REPL_FIRST) : (), $] >= 5.019 ? qw(OP_PUSHMARK OP_NULL) : (), 'CVf_LOCKED', # This ends up as a constant, pre or post 5.10 + $] >= 5.021005 ? qw(OPpLVREF_TYPE OPpLVREF_SV + OPpLVREF_AV OPpLVREF_HV + OPpLVREF_CV OPpLVREF_ELEM) : (), ], }, |