This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
dump.c: Dump SLICEWARNING flag for kv[ah]slice, too
authorFather Chrysostomos <sprout@cpan.org>
Sat, 14 Sep 2013 18:14:42 +0000 (11:14 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 15 Sep 2013 01:24:21 +0000 (18:24 -0700)
I accidentally omitted this in commit 95a31aad5.

dump.c

diff --git a/dump.c b/dump.c
index 1b6e5b4..881759f 100644 (file)
--- 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)) {                                             \