diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/HTML')
-rw-r--r-- | Master/tlpkg/tlperl/lib/HTML/HeadParser.pm | 7 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/HTML/Parser.pm | 2 |
2 files changed, 7 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/HTML/HeadParser.pm b/Master/tlpkg/tlperl/lib/HTML/HeadParser.pm index fe6916ec494..28e9cacc40c 100644 --- a/Master/tlpkg/tlperl/lib/HTML/HeadParser.pm +++ b/Master/tlpkg/tlperl/lib/HTML/HeadParser.pm @@ -67,6 +67,10 @@ E<lt>meta> elements containing a C<charset> attribute will result in an C<X-Meta-Charset> header, using the value of the C<charset> attribute as the pushed header value. +The ':' character can't be represented in header field names, so +if the meta element contains this char it's substituted with '-' +before forming the field name. + =back =head1 METHODS @@ -87,7 +91,7 @@ use HTML::Entities (); use strict; use vars qw($VERSION $DEBUG); #$DEBUG = 1; -$VERSION = "3.69"; +$VERSION = "3.71"; =item $hp = HTML::HeadParser->new @@ -204,6 +208,7 @@ sub start return; } } + $key =~ s/:/-/g; $self->{'header'}->push_header($key => $attr->{content}); } elsif ($tag eq 'base') { return unless exists $attr->{href}; diff --git a/Master/tlpkg/tlperl/lib/HTML/Parser.pm b/Master/tlpkg/tlperl/lib/HTML/Parser.pm index dccbc5f3b2c..42dd1a1c8c5 100644 --- a/Master/tlpkg/tlperl/lib/HTML/Parser.pm +++ b/Master/tlpkg/tlperl/lib/HTML/Parser.pm @@ -9,7 +9,7 @@ package HTML::Parser; use strict; use vars qw($VERSION @ISA); -$VERSION = "3.69"; +$VERSION = "3.71"; require HTML::Entities; |