kpriv/freebsd-ports
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix build with Perl 5.25.

Browse source 
Braces should be escaped in regexps.

With hat:	perl@
Sponsored by:	Absolight
This commit is contained in:
Mathieu Arnold 2016-05-20 09:30:10 +00:00
parent 4eac8b13f9
commit 90a1571950
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=415547
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
textproc/p5-XML-Twig/files/patch-speedup Normal file
View file

@ -0,0 +1,11 @@
--- speedup.orig 2014-06-11 07:23:43 UTC
+++ speedup
@@ -12,7 +12,7 @@ my $SET_NOT_EMPTY= join( '|', qw( pcdata
# depending on the version of perl use either qr or ""
print STDERR "perl version is $]\n";
-my $var= '(\$[a-z_]+(?:\[\d\])?|\$t(?:wig)?->root|\$t(?:wig)?->twig_current|\$t(?:wig)?->{\'?twig_root\'?}|\$t(?:wig)?->{\'?twig_current\'?})';
+my $var= '(\$[a-z_]+(?:\[\d\])?|\$t(?:wig)?->root|\$t(?:wig)?->twig_current|\$t(?:wig)?->\{\'?twig_root\'?}|\$t(?:wig)?->\{\'?twig_current\'?})';
my $set_to = '(?:undef|\$\w+|\$\w+->\{\w+\}|\$\w+->\w+|\$\w+->\w+\([^)]+\))';
my $elt = '\$(?:elt|new_elt|child|cdata|ent|_?parent|twig_current|next_sibling|first_child|prev_sibling|last_child|ref|elt->_parent)';