pp_pack: SvPV_force() pack(p/P, ...) arguments when writable

pp_pack: SvPV_force() pack(p/P, ...) arguments when writable #583