Mercurial > hg > nginx-tests

changeset 1541:b9de5364dfc9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: unbreak dav tests on Perl < 5.12.
author Sergey Kandaurov <pluknet@nginx.com>
date Sat, 28 Dec 2019 19:22:28 +0300
parents 5e2b8621aa5d
children 451e787aad76
files dav.t
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/dav.t
+++ b/dav.t
@@ -119,6 +119,9 @@ EOF
 
 like($r, qr/201 Created.*(Content-Length|\x0d\0a0\x0d\x0a)/ms, 'mkcol');
 
+SKIP: {
+skip 'perl too old', 1 if !$^V or $^V lt v5.12.0;
+
 TODO: {
 local $TODO = 'not yet' unless $t->has_version('1.17.7');
 
@@ -126,6 +129,8 @@ like($r, qr!(?(?{ $r =~ /Location/ })Loc
 
 }
 
+}
+
 $r = http(<<EOF);
 COPY /test/ HTTP/1.1
 Host: localhost