From 2fe6ab0671427b4d4be530b0a9917a790221d8b9 Mon Sep 17 00:00:00 2001 From: Han The Thanh Date: Fri, 26 Jun 2009 21:31:30 +0000 Subject: bugfix from Hartmut: fix \pdfobj file {foo} for files foo that don't end with '\n' git-svn-id: svn://tug.org/texlive/trunk@13970 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/pdftexdir/pdftex.web | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'Build/source/texk/web2c') diff --git a/Build/source/texk/web2c/pdftexdir/pdftex.web b/Build/source/texk/web2c/pdftexdir/pdftex.web index dc4b3bdbf99..47630498136 100644 --- a/Build/source/texk/web2c/pdftexdir/pdftex.web +++ b/Build/source/texk/web2c/pdftexdir/pdftex.web @@ -19021,8 +19021,12 @@ begin pdf_error("ext5", "cannot open file for embedding"); print("<<"); print(s); - while not eof(f) do - pdf_out(getc(f)); + if not eof(f) then begin {at least one byte available} + while not eof(f) do + pdf_out(getc(f)); + if (not obj_obj_is_stream(n)) and (pdf_ptr > 0) and (pdf_buf[pdf_ptr - 1] <> 10) then + pdf_out(10); + end; print(">>"); b_close(f); end -- cgit v1.2.3