From 9187b6e4099587c2d80ba27befd977a38989b202 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Mon, 6 Oct 2014 22:12:27 -0700
Subject: Deparse lvalue references

---
 ext/B/t/concise-xs.t | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'ext/B/t/concise-xs.t')

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) : (),
 		    ],
 		 },
 
-- 
cgit v1.2.1