From 61c85d894087ca7f0282600eb64d5af1e7b8e5d4 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sat, 14 Sep 2013 11:14:42 -0700 Subject: [PATCH] dump.c: Dump SLICEWARNING flag for kv[ah]slice, too I accidentally omitted this in commit 95a31aad5. --- dump.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/dump.c b/dump.c index 1b6e5b4..881759f 100644 --- a/dump.c +++ b/dump.c @@ -955,7 +955,8 @@ S_op_private_to_names(pTHX_ SV *tmpsv, U32 optype, U32 op_private) { Perl_sv_catpvf(aTHX_ tmpsv, ",COUNT=%"UVuf, \ (UV)(oppriv & OPpPADRANGE_COUNTMASK)); \ if ( (o->op_type == OP_RV2HV || o->op_type == OP_RV2AV || \ - o->op_type == OP_PADAV || o->op_type == OP_PADHV) \ + o->op_type == OP_PADAV || o->op_type == OP_PADHV || \ + o->op_type == OP_KVHSLICE || o->op_type == OP_KVASLICE) \ && oppriv & OPpSLICEWARNING ) \ sv_catpvs(tmpsv, ",SLICEWARNING"); \ if (SvCUR(tmpsv)) { \ -- 1.8.3.1