html2txt

diff --git a/lib/perl/NB/Functions.pm b/lib/perl/NB/Functions.pm
index 0ae50bc66b3a163f3f1585401b59ae8b0ff7282c..cd3a0a69b8a602ef7f49e9f17e9c92bd82ecfc9a 100644 (file)
--- 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;