瀏覽代碼

Use conservative paths to shell bins

Alois Mahdal 12 年之前
父節點
當前提交
0c26d2e015
共有 1 個檔案被更改,包括 2 行新增2 行删除
  1. 2
    2
      bin/mkexec

+ 2
- 2
bin/mkexec 查看文件

23
 
23
 
24
 my $bangs = {
24
 my $bangs = {
25
     pl   => `which perl`,
25
     pl   => `which perl`,
26
-    sh   => `which sh`,
26
+    sh   => '/bin/sh',
27
     py   => `which python`,
27
     py   => `which python`,
28
-    bash => `which bash`,
28
+    bash => '/bin/bash',
29
     sed  => `which sed`,
29
     sed  => `which sed`,
30
     bc   => `which bc`
30
     bc   => `which bc`
31
 };
31
 };