From 0c03ed601369c534ec18588df55d53245ab7ae93 Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Thu, 26 Feb 2004 09:19:16 +0000
Subject: modified loadtest() to produce better error message when it fails to
 load a test file

---
 tests/getpart.pm | 25 ++++++++++++-------------
 1 file changed, 12 insertions(+), 13 deletions(-)

(limited to 'tests/getpart.pm')

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;
 }
 
-- 
cgit v1.2.3