diff options
author | Reyk Floeter <reyk@esdenera.com> | 2016-08-15 20:54:30 +0200 |
---|---|---|
committer | Reyk Floeter <reyk@esdenera.com> | 2016-08-15 20:54:30 +0200 |
commit | 5a83fddddbf34b5da95507bbca99427616d37f79 (patch) | |
tree | 00c73a277a4114430b81ba8a81e4552a1f54ceec /regress/tests/funcs.pl | |
parent | 308ad496d559f26d7975aedbdbb252a704e8d9a6 (diff) | |
download | httpd-5a83fddddbf34b5da95507bbca99427616d37f79.tar.gz httpd-5a83fddddbf34b5da95507bbca99427616d37f79.zip |
sync tests
Diffstat (limited to 'regress/tests/funcs.pl')
-rw-r--r-- | regress/tests/funcs.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/regress/tests/funcs.pl b/regress/tests/funcs.pl index 9a0db7e..beda09a 100644 --- a/regress/tests/funcs.pl +++ b/regress/tests/funcs.pl @@ -1,4 +1,4 @@ -# $OpenBSD: funcs.pl,v 1.5 2015/07/18 19:17:13 benno Exp $ +# $OpenBSD: funcs.pl,v 1.6 2016/05/03 19:13:04 bluhm Exp $ # Copyright (c) 2010-2015 Alexander Bluhm <bluhm@openbsd.org> # @@ -425,7 +425,8 @@ sub check_len { $args{len} ||= 512 unless $args{lengths}; - my @clen = $c->loggrep(qr/^LEN: /) or die "no client len" + my @clen; + @clen = $c->loggrep(qr/^LEN: /) or die "no client len" unless $args{client}{nocheck}; # !@clen # or die "client: @clen", "len mismatch"; @@ -445,7 +446,8 @@ sub check_len { sub check_md5 { my ($c, $r, %args) = @_; - my @cmd5 = $c->loggrep(qr/^MD5: /) unless $args{client}{nocheck}; + my @cmd5; + @cmd5 = $c->loggrep(qr/^MD5: /) unless $args{client}{nocheck}; my @md5 = ref($args{md5}) eq 'ARRAY' ? @{$args{md5}} : $args{md5} || () or return; foreach my $md5 (@md5) { |