deri pushed a commit to branch master
in repository groff.

commit 79eefbcb0b73bb7f266acf0470655ab543585139
Author: Deri James <[email protected]>
AuthorDate: Fri Apr 24 16:09:37 2026 +0100

    [pdfmom]: Don't try to pass commands to pdfroff (-Tps) if
    pdfroff is not installed.
    
    * src/devices/gropdf/pdfmom.pl: Check if pdfroff is available
    before using it. (Withdrawn from groff since 1.24.0)
    
    See: <https://savannah.gnu.org/bugs/?68207>
---
 ChangeLog                    | 10 ++++++++++
 src/devices/gropdf/pdfmom.pl |  4 +++-
 2 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 17c08f2ce..d0f51d677 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2026-04-24  Deri James  <[email protected]>
+
+       [pdfmom]: Don't try to pass commands to pdfroff (-Tps) if
+       pdfroff is not installed.
+
+       * src/devices/gropdf/pdfmom.pl: Check if pdfroff is available
+       before using it. (Withdrawn from groff since 1.24.0)
+
+       See: <https://savannah.gnu.org/bugs/?68207>
+
 2026-04-21  G. Branden Robinson <[email protected]>
 
        [troff]: Throw warning in category "style" when nilpotent brace
diff --git a/src/devices/gropdf/pdfmom.pl b/src/devices/gropdf/pdfmom.pl
index 5511b12e2..afecc98e5 100644
--- a/src/devices/gropdf/pdfmom.pl
+++ b/src/devices/gropdf/pdfmom.pl
@@ -206,7 +206,9 @@ if ($dev eq 'pdf')
 }
 elsif ($dev eq 'ps')
 {
-       $waitstatus = system("$groff -Tpdf -dLABEL.REFS=1 $mom -z $cmdstring 
2>&1 | LC_ALL=C grep '^\\. *ds' | pdfroff -mpdfmark $mom --no-toc - $preconv 
$cmdstring");
+        my $pdfroff=`which pdfroff 2>/dev/null`;
+        abort("Since version 1.24.0 of groff, the pdfmark files (including 
pdfroff)\nare no longer included with groff. They can be seprately downloaded 
from:-\n\nhttps://savannah.nongnu.org/projects/groff-pdfmark\n\n";) if !$pdfroff;
+       $waitstatus = system("$groff -Tpdf -dLABEL.REFS=1 $mom -z $cmdstring 
2>&1 | LC_ALL=C grep '^\\. *ds' | $pdfroff -mpdfmark $mom --no-toc - $preconv 
$cmdstring");
        abort(autopsy($?)) unless $waitstatus == 0;
 }
 elsif ($dev eq '-z') # pseudo dev - just compile for warnings

_______________________________________________
groff-commit mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/groff-commit

Reply via email to