This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
metaconfig units changes for #13174.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 21 Nov 2001 16:02:14 +0000 (16:02 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 21 Nov 2001 16:02:14 +0000 (16:02 +0000)
p4raw-id: //depot/metaconfig@13175

U/perl/d_procselfexe.U [moved from U/perl/procselfexe.U with 51% similarity]

similarity index 51%
rename from U/perl/procselfexe.U
rename to U/perl/d_procselfexe.U
index 2632bcf..2e42df0 100644 (file)
@@ -1,29 +1,30 @@
-?MAKE:d_procselfexe: Oldconfig Setvar rm ls test contains issymlink d_readlink
+?MAKE:d_procselfexe: Oldconfig Setvar rm ls contains issymlink d_readlink
 ?MAKE: -pick add $@ %<
 ?S:d_procselfexe:
-?S:    Defined if /proc/self/exe is symlink to executing program
+?S:    Defined if /proc/self/exe is symlink to executing program.
 ?S:.
 ?C:HAS_PROCSELFEXE:
 ?C:    This symbol is defined if /proc/self/exe is a symlink
-?C:    to the executing program
+?C:    to the executing program.
 ?C:.
 ?H:#$d_procselfexe HAS_PROCSELFEXE     /**/
 ?H:.
 ?LINT: set d_procselfexe
 echo " "
-echo "Checking for /proc/self/exe ..." >&4
+echo "Checking for /proc/self/exe..." >&4
 val="$undef"
-if $test "$d_readlink" = "$define" ; then
+case "$d_readlink" in
+"$define")
        if $issymlink /proc/self/exe ; then
                $ls -l /proc/self/exe > reflect
-               if $contains $ls reflect >/dev/null; then
+               if $contains $ls reflect >/dev/null 2>&1; then
                        val="$define"
-                       echo "You have linux-like /proc/self/exe"
+                       echo "You have Linux-like /proc/self/exe."
                fi
                $rm reflect
        fi
-fi
+       ;;
+esac
 set d_procselfexe
 eval $setvar
 
-