diff options
author | Norbert Preining <norbert@preining.info> | 2021-04-02 03:20:54 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-04-02 03:20:54 +0000 |
commit | 3f173002d4a4a84e7d1fa5a74755fdd00d08a9c2 (patch) | |
tree | 5ed380344702de1f9ab53b68b6c3bcd6b8458087 /systems/texlive/tlnet/tlpkg/tlperl/site/lib/HTML/Entities.pm | |
parent | f78ba658b3ecd56053fe0837a4404d0c6c16a707 (diff) |
CTAN sync 202104020320
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/site/lib/HTML/Entities.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/site/lib/HTML/Entities.pm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/HTML/Entities.pm b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/HTML/Entities.pm index ecd8e0d31f..b10ca55e1d 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/site/lib/HTML/Entities.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/site/lib/HTML/Entities.pm @@ -89,7 +89,7 @@ for example, would encode I<just> the C<< < >>, C<< & >>, C<< > >>, and C<< " $encoded = encode_entities($input, '<>&"'); -and this would only encode non-plain ascii: +and this would only encode non-plain ASCII: $encoded = encode_entities($input, '^\n\x20-\x25\x27-\x7e'); @@ -136,17 +136,16 @@ modify it under the same terms as Perl itself. =cut use strict; -use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION); +our $VERSION = '3.75'; use vars qw(%entity2char %char2entity); require 5.004; require Exporter; -@ISA = qw(Exporter); +our @ISA = qw(Exporter); -@EXPORT = qw(encode_entities decode_entities _decode_entities); -@EXPORT_OK = qw(%entity2char %char2entity encode_entities_numeric); +our @EXPORT = qw(encode_entities decode_entities _decode_entities); +our @EXPORT_OK = qw(%entity2char %char2entity encode_entities_numeric); -$VERSION = "3.69"; sub Version { $VERSION; } require HTML::Parser; # for fast XS implemented decode_entities @@ -154,7 +153,7 @@ require HTML::Parser; # for fast XS implemented decode_entities %entity2char = ( # Some normal chars that have special meaning in SGML context - amp => '&', # ampersand + amp => '&', # ampersand 'gt' => '>', # greater than 'lt' => '<', # less than quot => '"', # double quote |