diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/HTML/HeadParser.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/HTML/HeadParser.pm | 7 |
1 files changed, 6 insertions, 1 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}; |