doc/bugs/double_shebang_replacement___47__usr__47__bin__47__perl5.185.18.mdwn

   1 Please consider this [[patch]] for merging in.
   2 [[!format  diff """
   3 From e697ba4ef7952ce549d449c4e4daea2e3f0a1aa7 Mon Sep 17 00:00:00 2001
   4 From: Nikolay Orlyuk <virkony@gmail.com>
   5 Date: Sun, 19 Oct 2014 18:46:34 +0300
   6 Subject: [PATCH] fix shebang paths manipulations
   7
   8 Small enhancements for 67e778f4 to avoid erroneous she-bangs
   9 "/usr/bin/perl5.185.18" (version suffix added twice).
  10 ---
  11  Makefile.PL | 4 ++--
  12  1 file changed, 2 insertions(+), 2 deletions(-)
  13
  14 diff --git a/Makefile.PL b/Makefile.PL
  15 index 61fe336..2d54658 100755
  16 --- a/Makefile.PL
  17 +++ b/Makefile.PL
  18 @@ -63,7 +63,7 @@ docwiki:
  19  perl_shebangs:
  20  ifneq "$(PERL)" "/usr/bin/perl"
  21         for file in $(shebang_scripts); do \
  22 -               $(SED) -e "1s|^#!/usr/bin/perl|#!$(PERL)|" < $$file > "$$file.new"; \
  23 +               $(SED) -e "1s|^#!/usr/bin/perl\>|#!$(PERL)|" < $$file > "$$file.new"; \
  24                 [ -x $$file ] && chmod +x "$$file.new"; \
  25                 mv -f "$$file.new" $$file; \
  26         done
  27 @@ -72,7 +72,7 @@ endif
  28  perl_shebangs_clean:
  29  ifneq "$(PERL)" "/usr/bin/perl"
  30         for file in $(shebang_scripts); do \
  31 -               $(SED) -e "1s|^#!$(PERL)|#!/usr/bin/perl|" < $$file > "$$file.new"; \
  32 +               $(SED) -e "1s|^#!$(PERL)\>|#!/usr/bin/perl|" < $$file > "$$file.new"; \
  33                 [ -x $$file ] && chmod +x "$$file.new"; \
  34                 mv -f "$$file.new" $$file; \
  35         done
  36 --
  37 2.1.2
  38 """]]
  39
  40 [[Done]], but this word-boundary construct didn't work on at least
  41 one of my systems, so now we're using `$(PERL)` to do the job
  42 portably. --[[schmonz]]