clarify usage of Porting/Maintainers

[perl5.git] / pp_pack.c

diff --git a/pp_pack.c b/pp_pack.c
index 31cc8eb..72a9666 100644 (file)
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -2798,6 +2798,7 @@ S_pack_rec(pTHX_ SV *cat, tempsym_t* symptr, SV **beglist, SV **endlist )
            }
            memset(cur, datumtype == 'A' ? ' ' : '\0', len);
            cur += len;
+           SvTAINT(cat);
            break;
        }
        case 'B':