From: Daniel Stenberg <daniel@haxx.se>
Date: Tue, 8 Jan 2002 09:32:10 +0000 (+0000)
Subject: added some tracability
X-Git-Tag: curl-7_9_3-pre2~31
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=9474e8d6d2a282be38cd090e950f5fe4ce7b2d6b;p=thirdparty%2Fcurl.git

added some tracability
---

diff --git a/tests/getpart.pm b/tests/getpart.pm
index 58e1a6006f..d288000882 100644
--- a/tests/getpart.pm
+++ b/tests/getpart.pm
@@ -3,6 +3,9 @@
 
 my @xml;
 
+my $warning=0;
+my $trace=0;
+
 sub getpartattr {
     my ($section, $part)=@_;
 
@@ -63,12 +66,21 @@ sub getpart {
             $inside--;
         }
         elsif((1==$inside) && ($_ =~ /^ *\<\/$section/)) {
+            if($trace) {
+                print STDERR "*** getpart.pm: $section/$part returned data!\n";
+            }
+            if(!@this && $warning) {
+                print STDERR "*** getpart.pm: $section/$part returned empty!\n";
+            }
             return @this;
         }
         elsif(2==$inside) {
             push @this, $_;
         }
     }
+    if($warning) {
+        print STDERR "*** getpart.pm: $section/$part returned empty!\n";
+    }
     return @this; #empty!
 }