RE: [perl #26136] localtime(3) calls tzset(3), but localtime_r(3) may not.

[metaconfig.git] / U / modified / Loc.U

diff --git a/U/modified/Loc.U b/U/modified/Loc.U
index 3a6d9e7..c399bd7 100644 (file)
--- a/U/modified/Loc.U
+++ b/U/modified/Loc.U
@@ -80,6 +80,9 @@
 ?T:thisthing thing xxx dir file say _test DJGPP
 ?LINT:change PATH
 ?LINT:extern _exe
+?LINT:change _egrep
+?LINT:change _ln
+?LINT:change _make
 : find out where common programs are
 echo " "
 echo "Locating common programs..." >&4
@@ -123,9 +126,10 @@ for dir in \$*; do
        elif test -f \$dir/\$thing.exe; then
                if test -n "$DJGPP"; then
                        echo \$dir/\$thing.exe
-               else
+               elif test "$eunicefix" != ":"; then
                        : on Eunice apparently
                        echo \$dir/\$thing
+                       exit 0
                fi
                exit 0
        fi
@@ -275,7 +279,7 @@ for file in $trylist; do
        '') xxx=`./loc $file $file $pth`;;
        *) xxx=`./loc $xxx $xxx $pth`;;
        esac
-       eval $file=$xxx
+       eval $file=$xxx$_exe
        eval _$file=$xxx
        case "$xxx" in
        /*)