1 files changed, 1 insertions, 1 deletions
diff --git a/sv.c b/sv.c
index 73aed10c07..97e76d267a 100644
--- a/sv.c
+++ b/sv.c
@@ -7228,7 +7228,7 @@ thats_really_all_folks:
 
 screamer2:
 	if (rslen) {
-	    register STDCHAR *bpe = buf + sizeof(buf);
+            const register STDCHAR *bpe = buf + sizeof(buf);
 	    bp = buf;
 	    while ((i = PerlIO_getc(fp)) != EOF && (*bp++ = (STDCHAR)i) != rslast && bp < bpe)
 		; /* keep reading */