html2txt Links when target equal text

diff --git a/lib/perl/NB/Functions.pm b/lib/perl/NB/Functions.pm
index 8e7c6b649b0688fcb04b7c97f7eac36aa73e4ae1..6636155c52c90d6e5851df8a3ee4396e97dbf1a9 100644 (file)
--- a/lib/perl/NB/Functions.pm
+++ b/lib/perl/NB/Functions.pm
@@ -558,6 +558,9 @@ sub html2txt {
        ,\n,gix;
 
   # Links
+       $v =~ s,
+       <a[^>]+href="([^"]+)"[^>]*>\g1</a>
+  ,$1,gix; # when target equal text
        $v =~ s,
        <a[^>]+href="([^"]+)"[^>]*>([^<]+)</a>
   ,$2 ( $1 ),gix;