This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Metaconfig unit changes for #8221.
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 21 Dec 2000 16:24:01 +0000 (16:24 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 21 Dec 2000 16:24:01 +0000 (16:24 +0000)
p4raw-id: //depot/metaconfig@8222

U/perl/Mksymlinks.U
U/perl/issymlink.U [moved from U/perl/testsyml.U with 100% similarity]

index 02aad9c..be49c9a 100644 (file)
@@ -7,7 +7,7 @@
 ?X: This unit produces a bit of shell code that must be dotted in order
 ?X: to make quick check on whether the current C compiler is working.
 ?X:    
-?MAKE:Mksymlinks: lns testsyml src
+?MAKE:Mksymlinks: lns issymlink src
 ?MAKE: -pick add $@ %<
 ?T: directory filename
 ?LINT:extern mksymlinks
@@ -18,7 +18,7 @@ $define|true|[yY]*)
        ''|'.') echo "Cannot create symlinks in the original directory." >&4
                exit 1
                ;;
-       *)      case "$lns:$testsyml" in
+       *)      case "$lns:$issymlink" in
                *"ln -s:-"?)
                        echo "Creating the symbolic links..." >&4
                        echo "(First creating the subdirectories...)" >&4
@@ -38,7 +38,7 @@ $define|true|[yY]*)
                                read filename
                                test -z "$filename" && break
                                if test -f $filename; then
-                                       if test $testsyml $filename; then
+                                       if test $issymlink $filename; then
                                                rm -f $filename
                                        fi
                                fi
similarity index 100%
rename from U/perl/testsyml.U
rename to U/perl/issymlink.U