[clanlib] 03/05: Fix "clanlib FTBFS with perl 5.26": add 450_unescaped_left_brace.patch to

[Markus Koschany]

This is an automated email from the git hooks/post-receive script.

apo pushed a commit to branch master
in repository clanlib.

commit 19a4216a75e72b153d70c98cb6e1087aedc32b83
Author: Markus Koschany <apo at debian.org>
Date:   Wed Jul 26 01:20:37 2017 +0200

    Fix "clanlib FTBFS with perl 5.26": add 450_unescaped_left_brace.patch to
    
    escape literal curly braces.
    
    Closes: #869383
    Thanks: gregor herrmann for the patch.
---
 debian/patches/450_unescaped_left_brace.patch | 24 ++++++++++++++++++++++++
 debian/patches/series                         |  1 +
 2 files changed, 25 insertions(+)

diff --git a/debian/patches/450_unescaped_left_brace.patch b/debian/patches/450_unescaped_left_brace.patch
new file mode 100644
index 0000000..7e8317c
--- /dev/null
+++ b/debian/patches/450_unescaped_left_brace.patch
@@ -0,0 +1,24 @@
+--- a/Documentation/Reference/pce2.in
++++ b/Documentation/Reference/pce2.in
+@@ -667,10 +667,10 @@
+ sub procClass {
+   my($env,$block,$com)=@_;
+ 
+-  if (&mask_API($block)=~/^\s*(class|union|struct)\s+(\S+)\s*:(.*){/) { 
++  if (&mask_API($block)=~/^\s*(class|union|struct)\s+(\S+)\s*:(.*)\{/) {
+     $env=Class::new($env,$2,$com,$1,$3);
+   }
+-  elsif (&mask_API($block)=~/^\s*(class|union|struct)\s+(\S+)\s*{/) { 
++  elsif (&mask_API($block)=~/^\s*(class|union|struct)\s+(\S+)\s*\{/) {
+     $env=Class::new($env,$2,$com,$1);
+   }
+   elsif ($block=~/^\s*(union|struct)\s*{/) { 
+@@ -1105,7 +1105,7 @@
+ sub alter {
+   my $self=shift;
+   my $str=shift;
+-  $str=~s/\${/\$\$self{/g;
++  $str=~s/\$\{/\$\$self\{/g;
+   $str=~s/\\n/\n/g;
+   $str=~s/"/\\"/g;
+   eval("\$str=\"$str\";");
diff --git a/debian/patches/series b/debian/patches/series
index d2a7cff..3461528 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -7,3 +7,4 @@
 420_reproducible.patch
 430_privacy.patch
 440_makepair.patch
+450_unescaped_left_brace.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-games/clanlib.git