From 9b075504ae8ac9140f524b403821e7454771f4e9 Mon Sep 17 00:00:00 2001 From: Nicolas Boisselier Date: Tue, 5 Dec 2023 13:37:55 +0100 Subject: [PATCH] cleanup --- 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 0ace1c6a..c589acff 100644 --- 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 |( ) # 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 -- 2.47.3