From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 22 Jan 2005 00:39:41 +0000 (+0000)
Subject: Remove now-unnecessary check. (It's done earlier)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5512a2f970bb4736c5f97b41c721c79012f86f6b;p=p5sagit%2Fp5-mst-13.2.git

Remove now-unnecessary check. (It's done earlier)

p4raw-id: //depot/perl@23858
---

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)));
 	    }