X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/61c85d894087ca7f0282600eb64d5af1e7b8e5d4..9b2d7314c3d60c8ae609dcfde97ecda3dd5b68fa:/dump.c

diff --git a/dump.c b/dump.c
index 881759f..1aa96ce 100644
--- a/dump.c
+++ b/dump.c
@@ -956,6 +956,7 @@ S_op_private_to_names(pTHX_ SV *tmpsv, U32 optype, U32 op_private) {
                            (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_ASLICE || o->op_type == OP_HSLICE ||    \
                o->op_type == OP_KVHSLICE || o->op_type == OP_KVASLICE)  \
            && oppriv & OPpSLICEWARNING  )                               \
             sv_catpvs(tmpsv, ",SLICEWARNING");                          \