From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Thu, 10 Nov 2016 09:50:12 +0000 (+0000)
Subject: html2txt
X-Git-Url: https://git.nbdom.net/?a=commitdiff_plain;h=058b4a1787589ab72a9e1fb224dd265794dd999b;p=nb.git

html2txt
---

diff --git a/lib/perl/NB/Functions.pm b/lib/perl/NB/Functions.pm
index 0ae50bc6..cd3a0a69 100644
--- a/lib/perl/NB/Functions.pm
+++ b/lib/perl/NB/Functions.pm
@@ -549,14 +549,14 @@ my $v = shift @_;
 		( (<|&lt;)/?\w+(\s+\w+=['"]+[^'"]+['"]+)*/?(>|&gt;) )
 		|( (<|&lt;)?\w+(\s+\w+=\S+)*/?(>|&gt;) )
 
-		#|( <\w[^>]+> )
-
 		|( (<|&lt;)!\[CDATA\[ ) # cdata begin
 		| ( \]\](>|&gt;) ) # cdata end
 
 		|( (<|&lt;)/\w+\s*$ ) # incomplet html
 		|( ^(<|&lt;)\w+ .* ) # incomplet html
     |(<\!DOCTYPE[^>]+>)
+    |([\w_-]+="[^"]+") # attrs
+		|( <\w[^>]+> ) # tags
 	,,gix;
 
 	$v =~ s/[\f ]+/ /g;