diff options
Diffstat (limited to 'Build')
-rw-r--r-- | Build/source/texk/dvipsk/ChangeLog | 6 | ||||
-rw-r--r-- | Build/source/texk/dvipsk/dosection.c | 6 |
2 files changed, 10 insertions, 2 deletions
diff --git a/Build/source/texk/dvipsk/ChangeLog b/Build/source/texk/dvipsk/ChangeLog index 84fdfa17247..c307a6f7d87 100644 --- a/Build/source/texk/dvipsk/ChangeLog +++ b/Build/source/texk/dvipsk/ChangeLog @@ -1,3 +1,9 @@ +2019-04-30 Karl Berry <karl@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@freefriends.org> * TeX Live 2019. diff --git a/Build/source/texk/dvipsk/dosection.c b/Build/source/texk/dvipsk/dosection.c index 4ece3bce5a1..1ebc163813d 100644 --- a/Build/source/texk/dvipsk/dosection.c +++ b/Build/source/texk/dvipsk/dosection.c @@ -23,7 +23,7 @@ dosection(sectiontype *s, int c) int np; int k; integer thispage = 0; - char buf[104]; + char buf[300]; /* really 253 */ dopsfont(s); #ifdef HPS @@ -40,7 +40,9 @@ dosection(sectiontype *s, int c) 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"); |