believed to be fixed already
[ikiwiki] / 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]]