From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 25 Oct 2001 16:21:35 +0000 (+0000)
Subject: Getting fancier...
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b3ec3848290654274712ea475401ba98eb99a6f0;p=p5sagit%2Fp5-mst-13.2.git

Getting fancier...

p4raw-id: //depot/perl@12649
---

diff --git a/t/TEST b/t/TEST
index cf5f021..e2a5a97 100755
--- a/t/TEST
+++ b/t/TEST
@@ -316,14 +316,25 @@ SHRDLU
    ### in the 't' directory since most (>=80%) of the tests succeeded.
 SHRDLU
 	use Config;
-	if ($Config{ldlibpthname}) {
+	if (my $p = $Config{ldlibpthname}) {
 	    warn <<SHRDLU;
    ### You may have to set your dynamic library search path,
-   ### $Config{ldlibpthname}, to point to the build directory
-   ### before running the harness-- depending on your shell style:
-   ###     setenv $Config{ldlibpthname} `pwd`:\${?$Config{ldlibpthname}}; cd t; ./perl harness
-   ###     $Config{ldlibpthname}=`pwd`:\$$Config{ldlibpthname}; export $Config{ldlibpthname}; cd t; ./perl harness
-   ###     export $Config{ldlibpthname}=`pwd`:\$$Config{ldlibpthname}; cd t; ./perl harness
+   ### $p, to point to the build directory:
+SHRDLU
+           if (exists $ENV{$p}) {
+	       warn <<SHRDLU;
+   ###     setenv $p `pwd`:\$$p; cd t; ./perl harness
+   ###     $p=`pwd`:\$$p; export $p; cd t; ./perl harness
+   ###     export $p=`pwd`:\$$p; cd t; ./perl harness
+SHRDLU
+            } else {
+		warn <<SHRDLU;
+   ###     setenv $p `pwd`; cd t; ./perl harness
+   ###     $p=`pwd`; export $p; cd t; ./perl harness
+   ###     export $p=`pwd`; cd t; ./perl harness
+SHRDLU
+            }    
+	    warn <<SHRDLU;
    ### for csh-style shells, like tcsh; or for traditional/modern
    ### Bourne-style shells, like bash, ksh, and zsh, respectively.
 SHRDLU