[rt.cpan.org #114552] Unescaped left brace in regex is illegal in regex

[email protected] ("gregor herrmann via RT") Sat, 20 May 2017 05:55:22 -0400

Newsgroups	perl.wxperl.users
Message-ID	<[email protected]>

Sat May 20 05:55:10 2017: Request 114552 was acted upon.
Transaction: Correspondence added by GREGOA
       Queue: Wx
     Subject: Unescaped left brace in regex is illegal in regex
   Broken in: 0.9928
    Severity: (no value)
       Owner: Nobody
  Requestors: [email protected]
      Status: new
 Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=114552 >


Trivial patch attached.

unescaped_left_brace.patch (text/x-diff, 831 B)

Description: fix "Unescaped left brace" warning, which is fatal in 5.25.x
Origin: vendor
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=115103
Bug-Debian: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=826463
Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=115103
Author: gregor herrmann <[email protected]>
Last-Update: 2017-05-20

--- a/build/Wx/build/Utils.pm
+++ b/build/Wx/build/Utils.pm
@@ -107,7 +107,7 @@
     m/^\s*INCLUDE:\s+(.*)$/ and $file = $1 and $arr = \@xsinclude;
     m/^\s*INCLUDE_COMMAND:\s+.*\s(\S+\.(?:xsp?|h))\s*/ and $file = $1 and
       $arr = \@xsinclude;
-    m/^\s*\%include{([^}]+)}\s*;\s*$/ and $file = $1 and $arr = \@xsinclude;
+    m/^\s*\%include\{([^}]+)}\s*;\s*$/ and $file = $1 and $arr = \@xsinclude;
 
     if( defined $file ) {
       $file = catfile( split '/', $file );