summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/HTML/HeadParser.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/HTML/HeadParser.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/HTML/HeadParser.pm7
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};