summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/site/lib/HTML/Entities.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/HTML/Entities.pm')
-rw-r--r--Master/tlpkg/tlperl/site/lib/HTML/Entities.pm13
1 files changed, 6 insertions, 7 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/HTML/Entities.pm b/Master/tlpkg/tlperl/site/lib/HTML/Entities.pm
index ecd8e0d31fa..b10ca55e1df 100644
--- a/Master/tlpkg/tlperl/site/lib/HTML/Entities.pm
+++ b/Master/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