From: Daniel Stenberg <daniel@haxx.se>
Date: Thu, 26 Feb 2004 09:19:16 +0000 (+0000)
Subject: modified loadtest() to produce better error message when it fails to load
X-Git-Tag: curl-7_11_1~215
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0c03ed601369c534ec18588df55d53245ab7ae93;p=thirdparty%2Fcurl.git

modified loadtest() to produce better error message when it fails to load
a test file
---

diff --git a/tests/getpart.pm b/tests/getpart.pm
index 9c74986f42..7331be7e66 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;
 }