1 files changed, 8 insertions, 1 deletions
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>) {