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