better strip

This commit is contained in:
Daniel Stenberg 2001-06-27 22:01:08 +00:00
parent 798aaf0c0a
commit be449bdea1
1 changed files with 7 additions and 2 deletions

View File

@ -567,9 +567,14 @@ sub singletest {
# what to cut off from the live protocol sent by curl
my @strip = getpart("verify", "strip");
@out = striparray( $strip[0], \@out);
my @protstrip= striparray($strip[0], \@protocol);
my @protstrip=@protocol;
for(@strip) {
# strip all patterns from both arrays
@out = striparray( $_, \@out);
@protstrip= striparray( $_, \@protstrip);
}
$res = compare(\@out, \@protstrip);
if($res) {