0001-avoid-system-perl-dependencies.patch 940 B

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