This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
metaconfig unit change for #13191.
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 22 Nov 2001 05:06:35 +0000 (05:06 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 22 Nov 2001 05:06:35 +0000 (05:06 +0000)
p4raw-id: //depot/metaconfig@13192

U/perl/d_procselfexe.U

index 2e42df0..b9b9719 100644 (file)
@@ -17,7 +17,7 @@ case "$d_readlink" in
 "$define")
        if $issymlink /proc/self/exe ; then
                $ls -l /proc/self/exe > reflect
-               if $contains $ls reflect >/dev/null 2>&1; then
+               if $contains /`basename $ls` reflect >/dev/null 2>&1; then
                        val="$define"
                        echo "You have Linux-like /proc/self/exe."
                fi