dump.c: Suppress extra sigils in multideref dump

This:

  my $z; my @y; $y[$z]

included

  <+> multideref($@y[$$z]) sK ->6

in its -MO=Concise output.

1 files changed, 3 insertions, 1 deletions

diff --git a/dump.c b/dump.c
index 853ca23dd7..f888a48be7 100644
--- a/dump.c
+++ b/dump.c
@@ -2288,7 +2288,9 @@ S_append_padvar(pTHX_ PADOFFSET off, CV *cv, SV *out, int n,
         if (namepad && (sv = padnamelist_fetch(namepad, off + i)))
         {
             STRLEN cur = SvCUR(out);
-            Perl_sv_catpvf(aTHX_ out, "[%"PNf, PNfARG(sv));
+            Perl_sv_catpvf(aTHX_ out, "[%"UTF8f,
+                                 UTF8fARG(1, PadnameLEN(sv) - 1,
+                                          PadnamePV(sv) + 1));
             if (is_scalar)
                 SvPVX(out)[cur] = '$';
         }