1 files changed, 2 insertions, 0 deletions
diff --git a/sv.c b/sv.c
index 5280c08f44..45638099d4 100644
--- a/sv.c
+++ b/sv.c
@@ -6379,6 +6379,8 @@ Perl_sv_gets(pTHX_ register SV *sv, register PerlIO *fp, I32 append)
 #else
       bytesread = PerlIO_read(fp, buffer, recsize);
 #endif
+      if (bytesread < 0)
+	  bytesread = 0;
       SvCUR_set(sv, bytesread += append);
       buffer[bytesread] = '\0';
       goto return_string_or_null;