1*4882a593SmuzhiyunFrom b42e4b5bfca030965dcfca993a47a6ddaa941287 Mon Sep 17 00:00:00 2001 2*4882a593SmuzhiyunFrom: Francois Perrad <francois.perrad@gadz.org> 3*4882a593SmuzhiyunDate: Sun, 25 Nov 2018 18:27:54 +0100 4*4882a593SmuzhiyunSubject: [PATCH] avoid system perl dependencies 5*4882a593Smuzhiyun 6*4882a593Smuzhiyunthis subroutine format is used for android target. 7*4882a593Smuzhiyunwith eval the load of HTML::Entities is deferred. 8*4882a593Smuzhiyun 9*4882a593SmuzhiyunSigned-off-by: Francois Perrad <francois.perrad@gadz.org> 10*4882a593Smuzhiyun--- 11*4882a593Smuzhiyun netsurf/utils/split-messages.pl | 2 +- 12*4882a593Smuzhiyun 1 file changed, 1 insertion(+), 1 deletion(-) 13*4882a593Smuzhiyun 14*4882a593Smuzhiyundiff --git a/netsurf/utils/split-messages.pl b/netsurf/utils/split-messages.pl 15*4882a593Smuzhiyunindex 4b50dde..e47dded 100644 16*4882a593Smuzhiyun--- a/netsurf/utils/split-messages.pl 17*4882a593Smuzhiyun+++ b/netsurf/utils/split-messages.pl 18*4882a593Smuzhiyun@@ -311,7 +311,7 @@ TXT 19*4882a593Smuzhiyun sub footer { qq|</resources>| } 20*4882a593Smuzhiyun sub format 21*4882a593Smuzhiyun { 22*4882a593Smuzhiyun- use HTML::Entities qw(encode_entities); 23*4882a593Smuzhiyun+ eval q|use HTML::Entities qw(encode_entities);|; 24*4882a593Smuzhiyun my $escaped = encode_entities( $_[1], '<>&"' ); 25*4882a593Smuzhiyun qq| <string name="$_[0]">$escaped</string>\n|; 26*4882a593Smuzhiyun } 27*4882a593Smuzhiyun-- 28*4882a593Smuzhiyun2.17.1 29*4882a593Smuzhiyun 30