diff options
Diffstat (limited to '')
| -rwxr-xr-x | util/perlpath.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/util/perlpath.pl b/util/perlpath.pl index 0aa5ada367..a1f236bd98 100755 --- a/util/perlpath.pl +++ b/util/perlpath.pl @@ -17,7 +17,12 @@ sub wanted @a=<IN>; close(IN); - $a[0]="#!$ARGV[0]/perl\n"; + if (-d $ARGV[0]) { + $a[0]="#!$ARGV[0]/perl\n"; + } + else { + $a[0]="#!$ARGV[0]\n"; + } # Playing it safe... $new="$_.new"; |