modified loadtest() to produce better error message when it fails to load

a test file

1 files changed, 12 insertions, 13 deletions

diff --git a/tests/getpart.pm b/tests/getpart.pm
index 9c74986f4..7331be7e6 100644
--- a/tests/getpart.pm
+++ b/tests/getpart.pm
@@ -92,21 +92,20 @@ sub getpart {
 sub loadtest {
     my ($file)=@_;
 
-    my $dir;
-    $dir = $ENV{'srcdir'};
-    if(!$dir) {
-        $dir=".";
-    }
-    
-
     undef @xml;
-    open(XML, "<$dir/$file") ||
-        return 1; # failure!
-    binmode XML; # for crapage systems, use binary
-    while(<XML>) {
-        push @xml, $_;
+
+    if(open(XML, "<$file")) {
+        binmode XML; # for crapage systems, use binary
+        while(<XML>) {
+            push @xml, $_;
+        }
+        close(XML);
+    }
+    else {
+        # failure
+        print STDERR "file $file wouldn't open!\n";
+        return 1;
     }
-    close(XML);
     return 0;
 }