texlive[50901] Build/source/texk/dvipsk: close postscript string

[commits+karl at tug.org]

Revision: 50901
          http://tug.org/svn/texlive?view=revision&revision=50901
Author:   karl
Date:     2019-04-30 03:34:42 +0200 (Tue, 30 Apr 2019)
Log Message:
-----------
close postscript string constant on long input filenames

Modified Paths:
--------------
    trunk/Build/source/texk/dvipsk/ChangeLog
    trunk/Build/source/texk/dvipsk/dosection.c

Modified: trunk/Build/source/texk/dvipsk/ChangeLog
===================================================================
--- trunk/Build/source/texk/dvipsk/ChangeLog	2019-04-29 23:38:02 UTC (rev 50900)
+++ trunk/Build/source/texk/dvipsk/ChangeLog	2019-04-30 01:34:42 UTC (rev 50901)
@@ -1,3 +1,9 @@
+2019-04-30  Karl Berry  <karl at tug.org>
+
+	* dosection.c (dosection): close PostScript string constant
+	for long filenames. tex-k mail from Arnaud Blouin,
+	24 Apr 2019 13:54:10.
+
 2019-04-07  Karl Berry  <karl at freefriends.org>
 
 	* TeX Live 2019.

Modified: trunk/Build/source/texk/dvipsk/dosection.c
===================================================================
--- trunk/Build/source/texk/dvipsk/dosection.c	2019-04-29 23:38:02 UTC (rev 50900)
+++ trunk/Build/source/texk/dvipsk/dosection.c	2019-04-30 01:34:42 UTC (rev 50901)
@@ -23,7 +23,7 @@
    int np;
    int k;
    integer thispage = 0;
-   char buf[104];
+   char buf[300]; /* really 253 */
 
    dopsfont(s);
 #ifdef HPS
@@ -40,7 +40,9 @@
    doubleout(mag);
    numout((integer)DPI);
    numout((integer)VDPI);
-   snprintf(buf, sizeof(buf), "(%.500s)", fulliname);
+   /* possibly lines in eps files are supposed to be <= 255;
+      not worth testing the limits merely to output a long file name. */
+   snprintf(buf, sizeof(buf), "(%.250s)", fulliname);
    cmdout(buf);
    newline();
    cmdout("@start");