Codebase list pangzero / 55293c0b-5fe9-4240-9def-4c0afe2dbb20/main debian / patches / unescaped-left-brace-in-regex.patch
55293c0b-5fe9-4240-9def-4c0afe2dbb20/main

Tree @55293c0b-5fe9-4240-9def-4c0afe2dbb20/main (Download .tar.gz)

unescaped-left-brace-in-regex.patch @55293c0b-5fe9-4240-9def-4c0afe2dbb20/main

5cc8413
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
From: Markus Koschany <apo@debian.org>
Date: Wed, 8 Jun 2016 08:37:41 +0200
Subject: unescaped left brace in regex

Fix deprecation warning for unescaped left brace in regex which will become
fatal with Perl 5.26.

Forwarded: https://github.com/kthakore/pangzero/issues/4
---
 lib/Games/PangZero/Config.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Games/PangZero/Config.pm b/lib/Games/PangZero/Config.pm
index eb26d05..72a9c4f 100644
--- a/lib/Games/PangZero/Config.pm
+++ b/lib/Games/PangZero/Config.pm
@@ -104,6 +104,7 @@ sub LoadConfig {
   foreach $varname (GetConfigVars()) {
     my $pattern = $varname;
     $pattern    =~ s/\[/\\[/g;
+    $pattern    =~ s/\{/\\{/g;
     if ($text =~ /$pattern = (.+?)$/m) {
       $val = $1;
       if ($varname eq Games::PangZero::ShowWebsite) {