texlive[67420] Build/source/texk/web2c/cwebdir/ctwill-w2c.ch: [CWEB]

[commits+ascherer at tug.org]

Revision: 67420
          http://tug.org/svn/texlive?view=revision&revision=67420
Author:   ascherer
Date:     2023-06-20 23:23:41 +0200 (Tue, 20 Jun 2023)
Log Message:
-----------
[CWEB] Clean up.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch

Modified: trunk/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch	2023-06-20 21:23:39 UTC (rev 67419)
+++ trunk/Build/source/texk/web2c/cwebdir/ctwill-w2c.ch	2023-06-20 21:23:41 UTC (rev 67420)
@@ -1789,7 +1789,7 @@
 include_depth=1; /* we simulate \.{@@i} */
 strcpy(cur_file_name,aux_file_name); /* first in, third out */
 if ( (found_filename = kpse_find_cweb(cur_file_name)) @|
-    && ((cur_file=fopen(found_filename,"r"))) ) {
+    && (cur_file=fopen(found_filename,"r")) ) {
   @<Set up |cur_file_name| for opened |cur_file|@>@;
   cur_line=0; include_depth++;
 }
@@ -1798,7 +1798,7 @@
 if ((cur_file=fopen(cur_file_name,"r"))) { cur_line=0; include_depth++; }
 strcpy(cur_file_name,"system.bux"); /* third in, first out */
 if ( (found_filename = kpse_find_cweb(cur_file_name)) @|
-    && ((cur_file=fopen(found_filename,"r"))) ) {
+    && (cur_file=fopen(found_filename,"r")) ) {
   @<Set up |cur_file_name| for opened |cur_file|@>@;
   cur_line=0;
 }
@@ -2078,8 +2078,8 @@
   if (strcmp(cur_file_name,found_filename)) {
     strcpy(cur_file_name,found_filename + @|
       ((strncmp(found_filename,"./",2)==0) ? 2 : 0)); /* Strip path prefix */
-    free(found_filename);
   }
+  free(found_filename);
 }@+else fatal(_("! Filename too long\n"), found_filename);
 
 @** Index.