From 5512a2f970bb4736c5f97b41c721c79012f86f6b Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sat, 22 Jan 2005 00:39:41 +0000 Subject: [PATCH] Remove now-unnecessary check. (It's done earlier) p4raw-id: //depot/perl@23858 --- pp_pack.c | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/pp_pack.c b/pp_pack.c index 2e830f4..8bfdd5b 100644 --- a/pp_pack.c +++ b/pp_pack.c @@ -1411,13 +1411,10 @@ S_unpack_rec(pTHX_ register tempsym_t* symptr, register char *s, char *strbeg, c break; case 'p': while (len-- > 0) { - if (sizeof(char*) > strend - s) - break; - else { - Copy(s, &aptr, 1, char*); - DO_BO_UNPACK_P(aptr); - s += sizeof(char*); - } + assert (sizeof(char*) <= strend - s); + Copy(s, &aptr, 1, char*); + DO_BO_UNPACK_P(aptr); + s += sizeof(char*); /* newSVpv generates undef if aptr is NULL */ PUSHs(sv_2mortal(newSVpv(aptr, 0))); } -- 2.7.4