From 49ab1d914c0ae90f2c98f3433f4b27118b45835f Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Thu, 12 Feb 2004 14:40:08 +0000
Subject: provide a source path to the servers to make them find the tests when
 run outside the source dir, not needing any symlinks

---
 tests/getpart.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'tests/getpart.pm')

diff --git a/tests/getpart.pm b/tests/getpart.pm
index 6935f9eb7..9c74986f4 100644
--- a/tests/getpart.pm
+++ b/tests/getpart.pm
@@ -92,8 +92,15 @@ sub getpart {
 sub loadtest {
     my ($file)=@_;
 
+    my $dir;
+    $dir = $ENV{'srcdir'};
+    if(!$dir) {
+        $dir=".";
+    }
+    
+
     undef @xml;
-    open(XML, "<$file") ||
+    open(XML, "<$dir/$file") ||
         return 1; # failure!
     binmode XML; # for crapage systems, use binary
     while(<XML>) {
-- 
cgit v1.2.3