From: Errietta Kostala <errietta@errietta.me>
Date: Thu, 16 Apr 2015 08:37:44 +0000 (+0000)
Subject: Remove silly DOCTYPE
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;p=scpubgit%2FApp-SCS.git
Remove silly DOCTYPE
---
diff --git a/lib/App/SCS/PageSet.pm b/lib/App/SCS/PageSet.pm
index e44522c..3f3d5d6 100644
--- a/lib/App/SCS/PageSet.pm
+++ b/lib/App/SCS/PageSet.pm
@@ -200,7 +200,11 @@ sub _extract_from_html {
sub _extract_from_md {
my ($self, $md) = @_;
- $self->_extract_from_html(markdown($md, { document_format => 'complete' }));
+
+ my $html = markdown($md, { document_format => 'complete' });
+
+ $html =~ s#<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">##g;
+ $self->_extract_from_html($html);
}
1;