1
0
mirror of https://git.FreeBSD.org/ports.git synced 2025-02-08 12:01:56 +00:00

Fix build with Perl 5.25.

Braces should be escaped in regexps.

With hat:	perl@
Sponsored by:	Absolight
This commit is contained in:
Mathieu Arnold 2016-05-20 09:30:19 +00:00
parent 26a595fac5
commit 2e601a809d
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=415549

View File

@ -0,0 +1,20 @@
--- Makefile.PL.orig 2012-05-28 13:24:29 UTC
+++ Makefile.PL
@@ -59,7 +59,7 @@ sub _load_words {
my ( $file ) = @_;
my $fh = new FileHandle $file;
while ( <$fh> ){
- my ( $key, $data ) = m/^"?([^{"]+)"?: { (.*) }/;
+ my ( $key, $data ) = m/^"?([^{"]+)"?: \{ (.*) }/;
next unless $key and $data;
my %tags = split /[:,]\s+/, $data;
foreach( keys %tags ){
@@ -73,7 +73,7 @@ sub _load_tags {
my ( $file ) = @_;
my $fh = new FileHandle $file;
while ( <$fh> ){
- my ( $key, $data ) = m/^"?([^{"]+)"?: { (.*) }/;
+ my ( $key, $data ) = m/^"?([^{"]+)"?: \{ (.*) }/;
next unless $key and $data;
my %tags = split /[:,]\s+/, $data;
foreach( keys %tags ){