texlive[61400] Build/source/texk/web2c/mplibdir/mpxout.w: mpxout.w:

[commits+kakuto at tug.org]

Revision: 61400
          http://tug.org/svn/texlive?view=revision&revision=61400
Author:   kakuto
Date:     2021-12-24 23:17:31 +0100 (Fri, 24 Dec 2021)
Log Message:
-----------
mpxout.w: sync with the upstream

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/mplibdir/mpxout.w

Modified: trunk/Build/source/texk/web2c/mplibdir/mpxout.w
===================================================================
--- trunk/Build/source/texk/web2c/mplibdir/mpxout.w	2021-12-24 21:45:27 UTC (rev 61399)
+++ trunk/Build/source/texk/web2c/mplibdir/mpxout.w	2021-12-24 22:17:31 UTC (rev 61400)
@@ -798,6 +798,8 @@
 
 @c 
 static web_boolean mpx_open_vf_file (MPX mpx) {
+  if (mpx->vf_file)
+    fclose(mpx->vf_file); /* Ugly... */
   mpx->vf_file = mpx_fsearch(mpx, mpx->cur_name, mpx_vf_format);
   if (mpx->vf_file) {
     free (mpx->cur_name);