[groff] 14/39: [grog]: Migrate Perl shebang for consistency.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 869c384adc3de073c853f3f6df8f749e55c100ea
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Mon Oct 24 13:10:54 2022 -0500

    [grog]: Migrate Perl shebang for consistency.
    
    [grog]: Migrate expansion of Perl interpreter in shebang.  Use the same
    technique as afmtodit, mmroff, gropdf, and pdfmom.
    
    * src/utils/grog/grog.am (grog): Replace "@PERL@" instead of
      '^\(#!  \).*perl'.
    * src/utils/grog/grog.pl: Use "@PERL@" in shebang.
---
 ChangeLog              | 9 +++++++++
 src/utils/grog/grog.am | 2 +-
 src/utils/grog/grog.pl | 2 +-
 3 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index bb2841928..b6b0cecf1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2022-10-24  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       [grog]: Migrate expansion of Perl interpreter in shebang.
+       Use the same technique as afmtodit, mmroff, gropdf, and pdfmom.
+
+       * src/utils/grog/grog.am (grog): Replace "@PERL@" instead of
+       '^\(#! \).*perl'.
+       * src/utils/grog/grog.pl: Use "@PERL@" in shebang.
+
 2022-10-24  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        [afmtodit]: Give program a usage message.
diff --git a/src/utils/grog/grog.am b/src/utils/grog/grog.am
index b24c2c6f3..f7ca5eb5b 100644
--- a/src/utils/grog/grog.am
+++ b/src/utils/grog/grog.am
@@ -26,7 +26,7 @@ EXTRA_DIST += \
 grog: $(grog_srcdir)/grog.pl $(SH_DEPS_SED_SCRIPT)
        $(AM_V_GEN)$(RM) $@ \
        && sed -f "$(SH_DEPS_SED_SCRIPT)" \
-              -e "1s|^\(#! \).*perl|\\1$(PERL)|" \
+              -e "s|[@]PERL[@]|$(PERL)|" \
               -e "s|[@]VERSION[@]|$(VERSION)|" \
               -e "$(SH_SCRIPT_SED_CMD)" \
               $(grog_srcdir)/grog.pl \
diff --git a/src/utils/grog/grog.pl b/src/utils/grog/grog.pl
index 2c7d2791c..f7be1ed3a 100644
--- a/src/utils/grog/grog.pl
+++ b/src/utils/grog/grog.pl
@@ -1,4 +1,4 @@
-#! /usr/bin/env perl
+#!@PERL@
 # grog - guess options for groff command
 # Inspired by doctype script in Kernighan & Pike, Unix Programming
 # Environment, pp 306-8.