]> git.nbdom.net Git - nb.git/commitdiff
html2txt Links when target equal text
authorNicolas Boisselier <nicolas.boisselier@gmail.com>
Thu, 20 Jul 2023 20:06:51 +0000 (22:06 +0200)
committerNicolas Boisselier <nicolas.boisselier@gmail.com>
Thu, 20 Jul 2023 20:06:51 +0000 (22:06 +0200)
lib/perl/NB/Functions.pm

index 8e7c6b649b0688fcb04b7c97f7eac36aa73e4ae1..6636155c52c90d6e5851df8a3ee4396e97dbf1a9 100644 (file)
@@ -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;