cleanup

diff --git a/lib/perl/NB/Functions.pm b/lib/perl/NB/Functions.pm
index 0ace1c6a9601311a15edffb711fd498eaf9de421..c589acff61f1bae90274e38e2fda0ddce19c4c5c 100644 (file)
--- a/lib/perl/NB/Functions.pm
+++ b/lib/perl/NB/Functions.pm
@@ -581,6 +581,7 @@ sub html2txt {
   # Delete
                # NB 02.12.23 |( (<)/?${tag}+(\s+${tag}+=['"]+[^'"]+['"]+)*/?(>) ) # start tag
                # NB 02.12.23 |( (<)?${tag}+(\s+${tag}+=\S+)*/?(>) ) # end tag
+
        $v =~ s,(^_DUMMY_$) # never happend only for easy regexp change order
 
                |( <!--\[if [^\]]+\]>.*?<!\[endif\]--> ) # condition
@@ -604,8 +605,7 @@ sub html2txt {
                |( <\w[^>]+> ) # tags
        ,,sgix;
 
-       # NB 03.07.23: Multiple empty nosy lines 
-       #$v =~ s/([ \t\r]*\n){2}([ \t\r]*\n)*/$1/sg;
+       # Multiple empty nosy lines 
        $v =~ s/\n(\s*\n)+/\n/sg;
 
        # Mutiple tabs