Merge branch 'gawk-4.1-stable'

1 files changed, 7 insertions, 3 deletions

diff --git a/io.c b/io.c
index 57d4af22..45b5015f 100644
--- a/io.c
+++ b/io.c
@@ -574,12 +574,12 @@ set_NR()
 
 /* inrec --- This reads in a record from the input file */
 
-int
+bool
 inrec(IOBUF *iop, int *errcode)
 {
 	char *begin;
 	int cnt;
-	int retval = 0;
+	bool retval = true;
 
 	if (at_eof(iop) && no_data_left(iop))
 		cnt = EOF;
@@ -589,13 +589,17 @@ inrec(IOBUF *iop, int *errcode)
 		cnt = get_a_record(& begin, iop, errcode);
 
 	if (cnt == EOF) {
-		retval = 1;
+		retval = false;
 		if (*errcode > 0)
 			update_ERRNO_int(*errcode);
 	} else {
 		INCREMENT_REC(NR);
 		INCREMENT_REC(FNR);
 		set_record(begin, cnt);
+		if (*errcode > 0) {
+			update_ERRNO_int(*errcode);
+			retval = false;
+		}
 	}
 
 	return retval;