Mailing List Archive

commit 150e9428b78bd0cdcd3839ebf7a9fe43d7725977
Author: David Christensen <david@endpoint.com>
Date: Mon Nov 13 09:35:50 2017 -0600

WIP test approach for speeding up UTF-8-based page parsing

lib/Vend/Interpolate.pm | 4 ++++
1 files changed, 4 insertions(+), 0 deletions(-)
---
diff --git a/lib/Vend/Interpolate.pm b/lib/Vend/Interpolate.pm
index ece47f9..a71b889 100644
--- a/lib/Vend/Interpolate.pm
+++ b/lib/Vend/Interpolate.pm
@@ -649,6 +649,9 @@ sub interpolate_html {

local($^W);

+ my $was_utf8 = utf8::is_utf8($html);
+ Encode::_utf8_off($html) if $was_utf8;
+
my $toplevel;
if(defined $Vend::PageInit and ! $Vend::PageInit) {
defined $::Variable->{MV_AUTOLOAD}
@@ -675,6 +678,7 @@ sub interpolate_html {
}
$parse->parse('');
}
+ Encode::_utf8_on(${$parse->{OUT}}) if $was_utf8;
return $parse->{OUT} if defined $wantref;
return ${$parse->{OUT}};
}

_______________________________________________
interchange-cvs mailing list
interchange-cvs@icdevgroup.org
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs