From: Peter Bray <pdb_ml@yahoo.com.au>
Date: Wed, 15 Jul 2015 10:37:20 +0000 (+0100)
Subject: tests: avoid test warning with perl >= 5.22
X-Git-Tag: v8.25~166
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a652e7b63ed3968e41b7c9ce4df52938ba356b74;p=thirdparty%2Fcoreutils.git

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
---

diff --git a/doc/local.mk b/doc/local.mk
index a7d2411e7d..37c5621e3e 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 \