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

[Eric Blake]

CVSROOT:        /sources/m4
Module name:    m4
Branch:         branch-1_4
Changes by:     Eric Blake <ericb>      06/08/18 23:11:37

Index: src/path.c
===================================================================
RCS file: /sources/m4/m4/src/Attic/path.c,v
retrieving revision 1.1.1.1.2.8
retrieving revision 1.1.1.1.2.9
diff -u -b -r1.1.1.1.2.8 -r1.1.1.1.2.9
--- src/path.c  31 Jul 2006 03:48:06 -0000      1.1.1.1.2.8
+++ src/path.c  18 Aug 2006 23:11:37 -0000      1.1.1.1.2.9
@@ -127,6 +127,9 @@
   fp = fopen (file, "r");
   if (fp != NULL)
     {
+      if (set_cloexec_flag (fileno (fp), true) != 0)
+       M4ERROR ((warning_status, errno,
+                 "Warning: cannot protect input file across forks"));
       if (result)
        *result = xstrdup (file);
       return fp;
@@ -154,6 +157,9 @@
        {
          if (debug_level & DEBUG_TRACE_PATH)
            DEBUG_MESSAGE2 ("path search for `%s' found `%s'", file, name);
+         if (set_cloexec_flag (fileno (fp), true) != 0)
+           M4ERROR ((warning_status, errno,
+                     "Warning: cannot protect input file across forks"));
          if (result)
            *result = name;
          else