URL: <https://savannah.gnu.org/bugs/?66537>
Summary: tmac/pdfpic.tmac: missing ",qq(\\n)" before a perl
'if' command
Group: GNU roff
Submitter: bjarniig
Submitted: Fri 06 Dec 2024 07:32:22 PM UTC
Category: Macro package - others/general
Severity: 3 - Normal
Item Group: None
Status: None
Privacy: Public
Assigned to: None
Open/Closed: Open
Discussion Lock: Any
Planned Release: None
_______________________________________________________
Follow-up Comments:
-------------------------------------------------------
Date: Fri 06 Dec 2024 07:32:22 PM UTC By: Bjarni Ingi Gislason <bjarniig>
Subject: tmac/pdfpic.tmac: missing ",qq(\\n)" before a perl 'if' command
In the first "print qq(..." a newline is missing, but not in the second
case
. as pdfpic*command | perl -ne 'print qq(. \\\\R\@pdfpic*width $+{w}p@ \
\\\\R\@pdfpic*height $+{h}p\@) if \
m/Page\s+size:\s+(?<w>[\d.]+)\sx\s(?<h>[\d.]+)/si;'
. ec
. pso \*[pdfpic*command]
. if !r pdfpic*width \{\
. ds pdfpic*command ( identify \$1 2>/dev/null || file \$1 ) \"
. eo
. as pdfpic*command | perl -ne 'print qq(. \\\\R\@pdfpic*width $+{w}p@ \
\\\\R\@pdfpic*height $+{h}p\@),qq(\\n) if m/(?:(?:[,=A-Z]|JP2) \
(?<w>\d+)\s*x\s*(?<h>\d+))|(?:height=(?<h>\d+).+width=(?<w>\d+))/;'
Exposed by creating a "mixed_pickles.pdf" file from "mixed_pickles.roff" in
the "contrib/hdtbl/examples" directory.
From "git blame ...":
ead74ff837 (Deri James 2024-08-25 16:37:09 +0100 73) . as
pdfpic*command | perl -ne 'print qq(. \\\\R\@pdfpic*width
$+{w}p@ \\\\R\@pdfpic*height $+{h}p\@) if
m/Page\s+size:\s+(?<w>[\d.]+)\sx\s(?<h>[\d.]+)/si;'
_______________________________________________________
Reply to this item at:
<https://savannah.gnu.org/bugs/?66537>
_______________________________________________
Message sent via Savannah
https://savannah.gnu.org/
signature.asc
Description: PGP signature
