projects
/
oweals
/
openssl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
make update
[oweals/openssl.git]
/
util
/
perlpath.pl
diff --git
a/util/perlpath.pl
b/util/perlpath.pl
index 0aa5ada36768b0d7896e3f583e8cb1d3b3e54c00..a1f236bd9843cf69490c72c532129f9ced4d9d0a 100755
(executable)
--- 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";