From bdf1a9d4e73520c11c5d31ef6ff3161f5989b5e3 Mon Sep 17 00:00:00 2001
From: Benno Schulenberg <bensberg@telfort.nl>
Date: Mon, 19 Aug 2019 17:00:11 +0200
Subject: [PATCH] syntax: perl: avoid upsetting older glibcs with crafty range
 expression

The regcomp() function from glibc-2.27 (and older) considers the
bracket expression ['-.] to be invalid -- mistakenly.  Avoid using
any range expression in the relevant regex and instead enumerate
all acceptable characters.

This avoids https://savannah.gnu.org/bugs/?56766.
---
 syntax/perl.nanorc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/syntax/perl.nanorc b/syntax/perl.nanorc
index 48d6a316..f5657ae6 100644
--- a/syntax/perl.nanorc
+++ b/syntax/perl.nanorc
@@ -11,7 +11,7 @@ color magenta "\<(continue|else|elsif|do|for|foreach|if|unless|until|while|eq|ne
 # Variable names.
 color cyan "[$%&@]([A-Za-z_][0-9A-Za-z_]*|\^[][A-Z?\^_]|[0-9]+)\>"
 color cyan "[$%&@]\{(\^?[A-Za-z_][0-9A-Za-z_]*|\^[][?\^][0-9]+)\}"
-color cyan "[$%&@]([][!"#'-.:-?`|~]|\{[][!-/:-@\`|~]\})|\$[$%&@]"
+color cyan "[$%&@]([][!"#'()*+,.:;<=>?`|~-]|\{[][!-/:-@\`|~]\})|\$[$%&@]"
 color cyan "(^|[[:space:]])[$%@][/\]"
 
 color yellow "".*"|qq\|.*\|"