diff options
| author | Jason Downs <downsj@cvs.openbsd.org> | 1996-08-19 20:09:10 +0000 |
|---|---|---|
| committer | Jason Downs <downsj@cvs.openbsd.org> | 1996-08-19 20:09:10 +0000 |
| commit | e7e852656e3beb5f62f8c146ba24004cfda2cf88 (patch) | |
| tree | b312bc3e985b3f1cf19691c779e7870219573b6e /bin/pdksh/tests/th.sh | |
| parent | 1e9e82f84b5de8bcd110c41c780f476397c385d9 (diff) | |
update to pdksh-5.2.8
Diffstat (limited to 'bin/pdksh/tests/th.sh')
| -rw-r--r-- | bin/pdksh/tests/th.sh | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/bin/pdksh/tests/th.sh b/bin/pdksh/tests/th.sh index 6e40c19dcf9..f26b8699e94 100644 --- a/bin/pdksh/tests/th.sh +++ b/bin/pdksh/tests/th.sh @@ -4,12 +4,18 @@ # Simple script to find perl and run it # +# Avoid common problems with ENV (though perl shouldn't let it through) +unset ENV + +x=x +[ -x /bin/sh ] 2> /dev/null || x=f + IFS=:$IFS perl= for i in $PATH; do [ X"$i" = X ] && i=. for j in perl perl4 perl5 ; do - [ -x "$i/$j" ] && perl=$i/$j && break 2 + [ -$x "$i/$j" ] && perl=$i/$j && break 2 done done |