[groff] 01/01: Data provided to .pso must terminate with \n.

[Deri James]

deri pushed a commit to branch master
in repository groff.

commit e462dd6f4ff5d79eda2446c90dc88757ed43ac68
Author: Deri James <deri@chuzzlewit.myzen.co.uk>
AuthorDate: Mon Dec 9 22:24:01 2024 +0000

    Data provided to .pso must terminate with \n.
    
    * tmac/pdfpic.tmac: Add terminating linefeed.
    
    Fixes <https://savannah.gnu.org/bugs/?66537> thanks to
    Bjarni Ingi Gislason for the report and solution.
---
 ChangeLog        | 9 +++++++++
 tmac/pdfpic.tmac | 2 +-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index c2edcfdb0..e12ee4bca 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2024-12-09  Deri James  <deri@chuzzlewit.myzen.co.uk>
+
+       Data provided to .pso must terminate with \n.
+
+       * tmac/pdfpic.tmac: Add terminating linefeed.
+
+       Fixes <https://savannah.gnu.org/bugs/?66537> thanks to
+       Bjarni Ingi Gislason for the report and solution.
+
 2024-12-06  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        Stop pointlessly overwriting new CJK font descriptions for
diff --git a/tmac/pdfpic.tmac b/tmac/pdfpic.tmac
index 6d6f65ca6..6ae9210cd 100644
--- a/tmac/pdfpic.tmac
+++ b/tmac/pdfpic.tmac
@@ -70,7 +70,7 @@
 .de pdfpic@get-image-dimensions
 .  ds pdfpic*command pdfinfo \$1 2>/dev/null \"
 .  eo
-.  as pdfpic*command  | perl -ne 'print qq(. \\\\R\@pdfpic*width ${1}p@ 
\\\\R\@pdfpic*height ${2}p\@) if m/Page\s+size:\s+([\d.]+)\sx\s([\d.]+)/si;'
+.  as pdfpic*command  | perl -ne 'print qq(. \\\\R\@pdfpic*width ${1}p@ 
\\\\R\@pdfpic*height ${2}p\@),qq(\\n) if 
m/Page\s+size:\s+([\d.]+)\sx\s([\d.]+)/si;'
 .  ec
 .  pso \*[pdfpic*command]
 .  if !r pdfpic*width \{\