Index: head/textproc/p5-XML-Twig/files/patch-speedup =================================================================== --- head/textproc/p5-XML-Twig/files/patch-speedup (nonexistent) +++ head/textproc/p5-XML-Twig/files/patch-speedup (revision 415547) @@ -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)'; Property changes on: head/textproc/p5-XML-Twig/files/patch-speedup ___________________________________________________________________ Added: fbsd:nokeywords ## -0,0 +1 ## +yes \ No newline at end of property Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:mime-type ## -0,0 +1 ## +text/plain \ No newline at end of property