From: Damyan Ivanov <dmn@debian.org>
Date: Sun, 24 Oct 2021 14:11:36 -0400
Subject: escaped closing braces in regular expression

Bug-Debian: https://bugs.debian.org/865477
Last-Update: 2021-10-24
---
 eg | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/eg b/eg
index 76502d4..d4b2fde 100755
--- a/eg
+++ b/eg
@@ -5858,7 +5858,7 @@ EOF
     my $stash_description = "@ARGV";
     my $single_word_desc = (scalar(@ARGV) == 1);
     @ARGV = ();
-    if ($stash_description =~ m#^stash\@{[^{]+}$# ||
+    if ($stash_description =~ m#^stash\@\{[^\{]+\}$# ||
         ($single_word_desc && RepoUtil::valid_ref($stash_description))) {
       push(@args, $stash_description)
     } else {
@@ -5923,7 +5923,7 @@ sub run {
 
     my @lines = split('\n', $output);
     my $regex = 
-      qr#(stash\@{[^}]+}): (?:WIP )?[Oo]n [^:]*: (?:[0-9a-f]+\.\.\. )?#;
+      qr#(stash\@\{[^\}]+\}): (?:WIP )?[Oo]n [^:]*: (?:[0-9a-f]+\.\.\. )?#;
     foreach my $line (@lines) {
       if ($self->{show_details}) {
         print "$line\n";