# HG changeset patch
# User Sergey Kandaurov <pluknet@nginx.com>
# Date 1530191248 -10800
# Node ID 81579df2ba8cd9a50b2d35b54e3a79512227fc9c
# Parent  fda743e92b31c6fe8dcac677ee8fd123eb77fbeb
Tests: fixed perl 5.28 "Unescaped left brace in regex" warnings.

diff --git a/autoindex_format.t b/autoindex_format.t
--- a/autoindex_format.t
+++ b/autoindex_format.t
@@ -121,22 +121,22 @@ my $kv = qr!\s*$string\s*:\s*($string|$n
 like($r, qr!Content-Type: application/json!, 'json content type');
 like($r, qr!{$kv(,$kv)*}!, 'json format');
 
-($data) = $r =~ qr!({[^}]*?"name"\s*:\s*"test-file".*?})!;
+($data) = $r =~ qr!(\{[^}]*?"name"\s*:\s*"test-file".*?})!;
 like($data, qr!"type"\s*:\s*"file"!, 'json file');
 like($data, $mtime, 'json file mtime');
 like($data, qr!"size"\s*:\s*42!, 'json file size');
 
-($data) = $r =~ qr!({[^}]*?"name"\s*:\s*"test-file-link".*?})!;
+($data) = $r =~ qr!(\{[^}]*?"name"\s*:\s*"test-file-link".*?})!;
 like($data, qr!"type"\s*:\s*"file"!, 'json file link');
 like($data, $mtime, 'json file link mtime');
 like($data, qr!"size"\s*:\s*42!, 'json file link size');
 
-($data) = $r =~ qr!({[^}]*?"name"\s*:\s*"test-dir".*?})!;
+($data) = $r =~ qr!(\{[^}]*?"name"\s*:\s*"test-dir".*?})!;
 like($data, qr!"type"\s*:\s*"directory"!, 'json dir');
 like($data, $mtime, 'json dir mtime');
 unlike($data, qr!"size"\s*:\s*$number!, 'json dir size');
 
-($data) = $r =~ qr!({[^}]*?"name"\s*:\s*"test-dir-link".*?})!;
+($data) = $r =~ qr!(\{[^}]*?"name"\s*:\s*"test-dir-link".*?})!;
 like($data, qr!"type"\s*:\s*"directory"!, 'json dir link');
 like($data, $mtime, 'json dir link mtime');
 unlike($data, qr!"size"\s*:\s*$number!, 'json dir link size');