verbatim_written = 1; is done at least after the first time the tex…

…t is write down to the file.

git-svn-id: svn://tug.org/texlive/trunk/Build/source@69248 c570f23f-e606-0410-a88d-b1316a301751

texk/web2c/mplibdir/mpxout.w

@@ -656,11 +656,11 @@ static void mpx_mpto(MPX mpx, char *tmpname, char *mptexpre) {
          mpx_copy_mpto(mpx, outfile, FIRST_VERBATIM_TEX);
       else
          mpx_copy_mpto(mpx, outfile, VERBATIM_TEX);
+      verbatim_written = 1;
       fprintf(outfile,"%s", mpx_postverb[mode]);
     } else {
       mpx_error(mpx,"unmatched etex");
     }
-    verbatim_written = 1;
   }
 }