Bug#865477: easygit: FTBFS with perl 5.26 -- help2man: can't get `--help' info from ./eg

[Damyan Ivanov <dmn@debian.org>]

Package: easygit
Version: 0.99-1
Severity: important
Tags: upstream patch
User: debian-perl@lists.debian.org
Usertags: perl-5.26-transition

Easytag 0.99-1 fails to build with perl 5.26 from experimental. This is due to 
./eg --help emitting warnings about unescaped { in regular expressions, 
preventing help2man from doing its job.

The attached patch fixes that by escaping the curly brackets:

-- dam

diff --git a/eg b/eg
index d3a94f8..5f65e12 100755
--- a/eg
+++ b/eg
@@ -5721,7 +5721,7 @@ EOF
       scalar @ARGV > 0) {
     my $stash_description = "@ARGV";
     @ARGV = ();
-    if ($stash_description =~ m#^stash\@{[^{]+}$#) {
+    if ($stash_description =~ m#^stash\@\{[^\{]+\}$#) {
       push(@args, $stash_description)
     } else {
       # Will need to compare arguments to existing stash descriptions...
@@ -5791,7 +5791,7 @@ sub postprocess {
   my @lines = split('\n', $output);
   if ($self->{subcommand} eq 'list') {
     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";