Codebase list pangzero / a44d542c-5bc1-45bd-b9e0-417e00ad44e2/main debian / patches / unescaped-left-brace-in-regex.patch
a44d542c-5bc1-45bd-b9e0-417e00ad44e2/main

Tree @a44d542c-5bc1-45bd-b9e0-417e00ad44e2/main (Download .tar.gz)

unescaped-left-brace-in-regex.patch @a44d542c-5bc1-45bd-b9e0-417e00ad44e2/mainraw · history · blame

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) {