Changes to m4/src/Attic/input.c,v [branch-1_4]

[Eric Blake]

CVSROOT:        /sources/m4
Module name:    m4
Branch:         branch-1_4
Changes by:     Eric Blake <ericb>      06/07/24 20:02:16

Index: src/input.c
===================================================================
RCS file: /sources/m4/m4/src/Attic/input.c,v
retrieving revision 1.1.1.1.2.9
retrieving revision 1.1.1.1.2.10
diff -u -b -r1.1.1.1.2.9 -r1.1.1.1.2.10
--- src/input.c 13 Jul 2006 22:09:54 -0000      1.1.1.1.2.9
+++ src/input.c 24 Jul 2006 20:02:16 -0000      1.1.1.1.2.10
@@ -307,7 +307,17 @@
        DEBUG_MESSAGE2 ("input reverted to %s, line %d",
                        isp->u.u_f.name, isp->u.u_f.lineno);
 
+      if (ferror (isp->u.u_f.file))
+        {
+          M4ERROR ((warning_status, 0, "read error"));
       fclose (isp->u.u_f.file);
+          retcode = EXIT_FAILURE;
+        }
+      else if (fclose (isp->u.u_f.file) == EOF)
+        {
+          M4ERROR ((warning_status, errno, "error reading file"));
+          retcode = EXIT_FAILURE;
+        }
       current_file = isp->u.u_f.name;
       current_line = isp->u.u_f.lineno;
       output_current_line = isp->u.u_f.out_lineno;