From 299d6431b6a676983eeccb33a8fd99e1d780c00f Mon Sep 17 00:00:00 2001
From: James E Keenan <jkeenan@cpan.org>
Date: Fri, 19 Jan 2018 17:56:48 -0500
Subject: [PATCH] Correct unescaped left brace in regex error.
Detected when run against perl 5 blead v5.27.7-213-ga8e5118.
---
lib/Getopt/Long/Descriptive.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/Getopt/Long/Descriptive.pm b/lib/Getopt/Long/Descriptive.pm
index 45ef811..fb51f66 100644
--- a/lib/Getopt/Long/Descriptive.pm
+++ b/lib/Getopt/Long/Descriptive.pm
@@ -304,7 +304,7 @@ my %HIDDEN = (
hidden => 1,
);
-my $SPEC_RE = qr{(?:[:=][\d\w\+]+[%@]?({\d*,\d*})?|[!+])$};
+my $SPEC_RE = qr{(?:[:=][\d\w\+]+[%@]?(\{\d*,\d*\})?|[!+])$};
sub _strip_assignment {
my ($self, $str) = @_;