This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
metaconfig unit change for #13181.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 21 Nov 2001 22:31:10 +0000 (22:31 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 21 Nov 2001 22:31:10 +0000 (22:31 +0000)
p4raw-id: //depot/metaconfig@13182

U/perl/issymlink.U

index 848c601..1efb3ca 100644 (file)
@@ -37,12 +37,14 @@ case "$lns" in
                        issymlink="test -h"
                fi              
        fi
-       if $test "X$issymlink" = X; then
-               if  $test -h >/dev/null 2>&1; then
-                       issymlink="$test -h"
-                       echo "Your builtin 'test -h' may be broken, I'm using external '$test -h'." >&4
-               fi              
-       fi
+       case "$issymlink" in
+       "test -h")
+               if $test -h >/dev/null 2>&1; then
+                       issymlink="/bin/test -h"
+                       echo "Your builtin 'test -h' may be broken, I'm using external '/bin/test -h'." >&4
+               fi
+               ;;
+       esac
        if $test "X$issymlink" = X; then
                if $test -L sym 2>/dev/null; then
                        issymlink="$test -L"