1 files changed, 1 insertions, 1 deletions
diff --git a/sv.c b/sv.c
index 7668155566..05e999b7cc 100644
--- a/sv.c
+++ b/sv.c
@@ -6354,7 +6354,7 @@ Perl_sv_gets(pTHX_ register SV *sv, register PerlIO *fp, I32 append)
 	Stat_t st;
 	if (!PerlLIO_fstat(PerlIO_fileno(fp), &st) && S_ISREG(st.st_mode))  {
 	    Off_t offset = PerlIO_tell(fp);
-	    if (offset != (Off_t) -1) {
+	    if (offset != (Off_t) -1 && st.st_size + append > offset) {
 	     	(void) SvGROW(sv, (STRLEN)((st.st_size - offset) + append + 1));
 	    }
 	}