Purify: Array bounds read: could read one character past the end.

p4raw-id: //depot/perl@15438

1 files changed, 3 insertions, 2 deletions

diff --git a/pp_pack.c b/pp_pack.c
index b653362039..7df5f45af5 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -1525,8 +1525,9 @@ Perl_unpack_str(pTHX_ char *pat, register char *patend, register char *s, char *
 		}
 		if (*s == '\n')
 		    s++;
-		else if (s[1] == '\n')		/* possible checksum byte */
-		    s += 2;
+		else	/* possible checksum byte */
+		    if (s + 1 < strend && s[1] == '\n')
+		        s += 2;
 	    }
 	    XPUSHs(sv_2mortal(sv));
 	    break;