perl -DsR: display PADMTPs as <P>

The R modifier to the stack debugging switch -Ds already
indicates if an SV's refcount is > 1 or SvTEMP is set (T), or the
SV is on the temps stack without SvTEMP set (t), e.g.:

    =>  IV(101), <2>IV(102), <T>IV(103) <3t>IV(104)

With this commit, it displays SVs with the SvPADTMP flag set as <P>,
e.g.

    =>  <P>IV(101), <2P>IV(102), <PT>IV(103)

1 files changed, 3 insertions, 1 deletions

diff --git a/dump.c b/dump.c
index 8720ea9caf..edbeb182b8 100644
--- a/dump.c
+++ b/dump.c
@@ -536,10 +536,12 @@ Perl_sv_peek(pTHX_ SV *sv)
                 break;
             }
         }
-        if (is_tmp || SvREFCNT(sv) > 1) {
+        if (is_tmp || SvREFCNT(sv) > 1 || SvPADTMP(sv)) {
             Perl_sv_catpvf(aTHX_ t, "<");
             if (SvREFCNT(sv) > 1)
                 Perl_sv_catpvf(aTHX_ t, "%" UVuf, (UV)SvREFCNT(sv));
+            if (SvPADTMP(sv))
+                Perl_sv_catpvf(aTHX_ t, "%s",  "P");
             if (is_tmp)
                 Perl_sv_catpvf(aTHX_ t, "%s", SvTEMP(t) ? "T" : "t");
             Perl_sv_catpvf(aTHX_ t, ">");