Tests: fixed perl 5.28 "Unescaped left brace in regex" warnings.
diff --git a/autoindex_format.t b/autoindex_format.t
index 8db25e6..b89950c 100644
--- a/autoindex_format.t
+++ b/autoindex_format.t
@@ -121,22 +121,22 @@
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');
