From 058b4a1787589ab72a9e1fb224dd265794dd999b Mon Sep 17 00:00:00 2001
From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Thu, 10 Nov 2016 09:50:12 +0000
Subject: [PATCH] html2txt

---
 lib/perl/NB/Functions.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;
-- 
2.47.3