summaryrefslogtreecommitdiff
path: root/tests/getpart.pm
diff options
context:
space:
mode:
authorDaniel Stenberg <daniel@haxx.se>2002-01-08 09:32:10 +0000
committerDaniel Stenberg <daniel@haxx.se>2002-01-08 09:32:10 +0000
commit9474e8d6d2a282be38cd090e950f5fe4ce7b2d6b (patch)
tree6b03494d72944a98771ba5476f6452a42efc468a /tests/getpart.pm
parent6328428568932de6eef14d62d698d97e2843e4bc (diff)
downloadcurl-9474e8d6d2a282be38cd090e950f5fe4ce7b2d6b.tar.gz
added some tracability
Diffstat (limited to 'tests/getpart.pm')
-rw-r--r--tests/getpart.pm12
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/getpart.pm b/tests/getpart.pm
index 58e1a6006..d28800088 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!
}