fix for missed accounting for null byte in pack("Z",...) (from

M.J.T. Guy)

p4raw-id: //depot/perl@5994

1 files changed, 2 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index e90b5386fc..17824bd090 100644
--- a/pp.c
+++ b/pp.c
@@ -4438,7 +4438,8 @@ PP(pp_pack)
 	    if ((*pat != 'a' && *pat != 'A' && *pat != 'Z') || pat[1] != '*')
 		DIE(aTHX_ "/ must be followed by a*, A* or Z*");
 	    lengthcode = sv_2mortal(newSViv(sv_len(items > 0
-						   ? *MARK : &PL_sv_no)));
+						   ? *MARK : &PL_sv_no)
+                                            + (*pat == 'Z' ? 1 : 0)));
 	}
 	switch(datumtype) {
 	default: