This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Spelling - megapatch
[metaconfig.git] / U / perl / issymlink.U
index 546f664..3733c71 100644 (file)
@@ -1,11 +1,11 @@
 ?RCS: $Id: lns.U,v 3.0.1.1 1994/06/20 07:05:52 ram Exp $
 ?RCS:
 ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
-?RCS: 
-?RCS: You may redistribute only under the terms of the Artistic Licence,
+?RCS:
+?RCS: You may redistribute only under the terms of the Artistic License,
 ?RCS: as specified in the README file that comes with the distribution.
 ?RCS: You may reuse parts of this distribution only within the terms of
-?RCS: that same Artistic Licence; a copy of which may be found at the root
+?RCS: that same Artistic License; a copy of which may be found at the root
 ?RCS: of the source tree for dist 3.0.
 ?RCS:
 ?RCS: Original Author: Andy Dougherty <doughera@lafcol.lafayette.edu>
 ?T:pth p
 ?LINT:change PATH
 ?LINT:change test
+?LINT:extern newsh
+?LINT:extern _exe
 : determine whether symbolic links are supported
 echo " "
 case "$lns" in
-*"ln -s")
+*"ln"*" -s")
        echo "Checking how to test for symbolic links..." >&4
        $lns blurfl sym
        if $test "X$issymlink" = X; then
@@ -59,13 +61,13 @@ case "$lns" in
                                echo "Trying external '$test -h'." >&4
                                issymlink="$test -h"
                                if $test ! -h sym >/dev/null 2>&1; then
-                                       echo "External '$test -h' is broken, too." >& 4
+                                       echo "External '$test -h' is broken, too." >&4
                                        issymlink=''
                                fi
                                ;;
                        *)      issymlink='' ;;
                        esac
-               fi              
+               fi
        fi
        if $test "X$issymlink" = X; then
                if $test -L sym 2>/dev/null; then