Fix building with Perl 5.25.

Unescaped left brace in regex is illegal in regex.

Sponsored by:	Absolight
This commit is contained in:
Mathieu Arnold 2016-05-27 09:04:20 +00:00
parent 8ca6393dd4
commit decf876ef5
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=415928
4 changed files with 54 additions and 0 deletions

View file

@ -0,0 +1,16 @@
--- Makefile.PL.orig 2016-05-26 14:56:06 UTC
+++ Makefile.PL
@@ -33,11 +33,11 @@ if ($ENV{MTHURN_PERL_DEV})
{
warn " EEE did not find DIRFILESEP in Makefile\n";
} # if
- if ($s !~ s/(pm_to_blib\(){{\@ARGV}}/$1 . '{@ARGV}'/e)
+ if ($s !~ s/(pm_to_blib\()\{\{\@ARGV\}\}/$1 . '{@ARGV}'/e)
{
warn " EEE did not find pm_to_blib@ARGV in Makefile\n";
} # if
- if ($s !~ s/(from_to\s+=>\s+){{\@ARGV}}/$1 . '{@ARGV}'/e)
+ if ($s !~ s/(from_to\s+=>\s+)\{\{\@ARGV\}\}/$1 . '{@ARGV}'/e)
{
warn " EEE did not find from_to@ARGV in Makefile\n";
} # if

View file

@ -0,0 +1,11 @@
--- xs/sc_ssl/Makefile.PL.orig 2012-01-20 00:08:58 UTC
+++ xs/sc_ssl/Makefile.PL
@@ -171,7 +171,7 @@ sub build_cmodule {
$step = 0;
foreach( <$fh> ) {
if( $step == 0 ) {
- if( /\s*struct st_mod_sc {/ ) {
+ if( /\s*struct st_mod_sc \{/ ) {
$ct1 = index( $ct, '/* !include st_mod_sc */' );
$ct2 = substr( $ct, $ct1 + 25 );
$ct1 = substr( $ct, 0, $ct1 );

View file

@ -0,0 +1,16 @@
--- Makefile.PL.orig 2015-11-28 15:17:09 UTC
+++ Makefile.PL
@@ -116,11 +116,11 @@ if (0 && $ENV{MTHURN_PERL_DEV})
{
print " EEE did not find DIRFILESEP in Makefile\n";
} # if
- if ($s !~ s/(pm_to_blib\(){{\@ARGV}}/$1 . '{@ARGV}'/e)
+ if ($s !~ s/(pm_to_blib\()\{\{\@ARGV\}\}/$1 . '{@ARGV}'/e)
{
print " EEE did not find pm_to_blib@ARGV in Makefile\n";
} # if
- if ($s !~ s/(from_to\s+=>\s+){{\@ARGV}}/$1 . '{@ARGV}'/e)
+ if ($s !~ s/(from_to\s+=>\s+)\{\{\@ARGV\}\}/$1 . '{@ARGV}'/e)
{
print " EEE did not find from_to@ARGV in Makefile\n";
} # if

View file

@ -0,0 +1,11 @@
--- build/Wx/build/Utils.pm.orig 2014-03-08 13:01:15 UTC
+++ build/Wx/build/Utils.pm
@@ -107,7 +107,7 @@ sub scan_xs($$$) {
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 );