svn commit: r415547 - head/textproc/p5-XML-Twig/files

[Mathieu Arnold]

Author: mat
Date: Fri May 20 09:30:10 2016
New Revision: 415547
URL: https://svnweb.freebsd.org/changeset/ports/415547

Log:
  Fix build with Perl 5.25.
  
  Braces should be escaped in regexps.
  
  With hat:	perl@
  Sponsored by:	Absolight

Added:
  head/textproc/p5-XML-Twig/files/
  head/textproc/p5-XML-Twig/files/patch-speedup   (contents, props changed)

Added: head/textproc/p5-XML-Twig/files/patch-speedup
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/textproc/p5-XML-Twig/files/patch-speedup	Fri May 20 09:30:10 2016	(r415547)
@@ -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)';