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:
parent
26a595fac5
commit
2e601a809d
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=415549
20
textproc/p5-Lingua-EN-Tagger/files/patch-Makefile.PL
Normal file
20
textproc/p5-Lingua-EN-Tagger/files/patch-Makefile.PL
Normal 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 ){
|
Loading…
x
Reference in New Issue
Block a user