gbranden pushed a commit to branch master
in repository groff.

commit e0d2a26757e69d479386eccc58ee0efa3fbd143e
Author: G. Branden Robinson <[email protected]>
AuthorDate: Tue Oct 21 14:52:29 2025 -0500

    [gropdf]: Make pdfmom disclose version of groff.
    
    * src/devices/gropdf/pdfmom.pl: When handling `-v`/`--version` option,
      run "groff" with the `--version` option as well, as our other wrapper
      programs nroff(1) and groff(1) do.  This makes it easy to see if the
      versions of the various programs in the pipeline are askew.
    
    Fixes <https://savannah.gnu.org/bugs/?67618>.  Problem appears to date
    back to pdfmom's birth in commit f2a501fff5, 31 August 2012.
---
 ChangeLog                    | 14 ++++++++++++++
 src/devices/gropdf/pdfmom.pl |  2 ++
 2 files changed, 16 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 2193c263a..ca5c630fb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,17 @@
+2025-10-21  G. Branden Robinson <[email protected]>
+
+       [gropdf]: Make pdfmom disclose version of groff it runs.
+
+       * src/devices/gropdf/pdfmom.pl: When handling `-v`/`--version`
+       option, run "groff" with the `--version` option as well, as our
+       other wrapper programs nroff(1) and groff(1) do.  This makes it
+       easy to see if the versions of the various programs in the
+       pipeline are askew.
+
+       Fixes <https://savannah.gnu.org/bugs/?67618>.  Problem appears
+       to date back to pdfmom's birth in commit f2a501fff5, 31 August
+       2012.
+
 2025-10-21  G. Branden Robinson <[email protected]>
 
        [troff]: Refactor recent change (to diagnose ignored characters
diff --git a/src/devices/gropdf/pdfmom.pl b/src/devices/gropdf/pdfmom.pl
index ec9bf101f..6301947e8 100644
--- a/src/devices/gropdf/pdfmom.pl
+++ b/src/devices/gropdf/pdfmom.pl
@@ -140,6 +140,8 @@ while (my $c=shift)
     elsif ($c eq '-v' or $c eq '--version')
     {
        print "GNU pdfmom (groff) version @VERSION@\n";
+       my $waitstatus = system("groff -T$dev --version");
+       abort(autopsy($?)) unless $waitstatus == 0;
        exit;
     }
     elsif (substr($c,0,1) eq '-')

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

Reply via email to