From 06b8cfc1957e925fb9b297922b0fe82fd32bf0ab Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ville=20Skytt=C3=A4?= <ville.skytta@iki.fi>
Date: Tue, 25 Sep 2012 21:04:00 +0300
Subject: [PATCH 1/3] Remove unused variable

---
 hparser.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/hparser.c b/hparser.c
index 3b2461e..0570a0c 100644
--- a/hparser.c
+++ b/hparser.c
@@ -1271,15 +1271,15 @@ parse_start(PSTATE* p_state, char *beg, char *end, U32 utf8, SV* self)
     int empty_tag = 0;
     dTOKENS(16);
 
-    hctype_t tag_name_first, tag_name_char;
+    hctype_t tag_name_char;
     hctype_t attr_name_first, attr_name_char;
 
     if (STRICT_NAMES(p_state)) {
-	tag_name_first = attr_name_first = HCTYPE_NAME_FIRST;
-	tag_name_char  = attr_name_char  = HCTYPE_NAME_CHAR;
+	attr_name_first = HCTYPE_NAME_FIRST;
+	tag_name_char   = attr_name_char  = HCTYPE_NAME_CHAR;
     }
     else {
-	tag_name_first = tag_name_char = HCTYPE_NOT_SPACE_GT;
+	tag_name_char   = HCTYPE_NOT_SPACE_GT;
 	attr_name_first = HCTYPE_NOT_SPACE_GT;
 	attr_name_char  = HCTYPE_NOT_SPACE_EQ_GT;
     }

From 8c37b8e5e65041403f25bd0af417d0e78528c7a0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ville=20Skytt=C3=A4?= <ville.skytta@iki.fi>
Date: Tue, 25 Sep 2012 21:08:27 +0300
Subject: [PATCH 2/3] Avoid unnecessarily grouping parentheses

---
 Parser.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Parser.pm b/Parser.pm
index 9c2fc21..14ebb53 100644
--- a/Parser.pm
+++ b/Parser.pm
@@ -66,7 +66,7 @@ sub init
 	if ($option =~ /^(\w+)_h$/) {
 	    $self->handler($1 => @$val);
 	}
-        elsif ($option =~ /^(text|start|end|process|declaration|comment)$/) {
+        elsif ($option =~ /^(?:text|start|end|process|declaration|comment)$/) {
 	    require Carp;
 	    Carp::croak("Bad constructor option '$option'");
         }

From 52096e668bbf75efe7aa1a8e66655e7c78fe3b01 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ville=20Skytt=C3=A4?= <ville.skytta@iki.fi>
Date: Wed, 24 May 2017 06:22:02 +0300
Subject: [PATCH 3/3] Bring HTML 5 head elements up to date with current HTML
 Living Standard

<command> was removed and <template> added since our last update.
---
 lib/HTML/HeadParser.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/HTML/HeadParser.pm b/lib/HTML/HeadParser.pm
index 28e9cac..6115fdb 100644
--- a/lib/HTML/HeadParser.pm
+++ b/lib/HTML/HeadParser.pm
@@ -185,10 +185,10 @@ sub flush_text   # internal
 # <!ENTITY % head.content "TITLE & BASE?">
 # <!ELEMENT HEAD O O (%head.content;) +(%head.misc;)>
 #
-# From HTML 5 as of WD-html5-20090825:
+# From HTML Living Standard as of 24 May 2017:
 #
 # One or more elements of metadata content, [...]
-# => base, command, link, meta, noscript, script, style, title
+# => base, link, meta, noscript, script, style, template, title
 
 sub start
 {
@@ -218,7 +218,7 @@ sub start
 	# This is a non-standard header.  Perhaps we should just ignore
 	# this element
 	$self->{'header'}->push_header(Isindex => $attr->{prompt} || '?');
-    } elsif ($tag =~ /^(?:title|noscript|object|command)$/) {
+    } elsif ($tag =~ /^(?:title|noscript|object|template)$/) {
 	# Just remember tag.  Initialize header when we see the end tag.
 	$self->{'tag'} = $tag;
     } elsif ($tag eq 'link') {