From a652e7b63ed3968e41b7c9ce4df52938ba356b74 Mon Sep 17 00:00:00 2001
From: Peter Bray <pdb_ml@yahoo.com.au>
Date: Wed, 15 Jul 2015 11:37:20 +0100
Subject: tests: avoid test warning with perl >= 5.22

* doc/local.mk (sc-lower-case-var): Escape a literal
left curly bracket, needed with perl >= 5.22
Fixes http://bugs.gnu.org/21060
---
 doc/local.mk | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/doc/local.mk b/doc/local.mk
index a7d2411e7..37c5621e3 100644
--- a/doc/local.mk
+++ b/doc/local.mk
@@ -113,8 +113,8 @@ sc-avoid-zeroes:
 # The leading backslash exemption is to permit in-macro uses like
 # @var{\varName\} where the upper case letter is part of a parameter name.
 find_upper_case_var =		\
-  '/\@var{/ or next;		\
-   while (/\@var{(.+?)}/g)	\
+  '/\@var\{/ or next;		\
+   while (/\@var\{(.+?)}/g)	\
      {				\
        $$v = $$1;		\
        $$v =~ /[A-Z]/ && $$v !~ /^\\/ and (print "$$ARGV:$$.:$$_"), $$m = 1 \
-- 
cgit v1.2.3-70-g09d2