summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/HTML/LinkExtor.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/HTML/LinkExtor.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/HTML/LinkExtor.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/HTML/LinkExtor.pm b/Master/tlpkg/tlperl/lib/HTML/LinkExtor.pm
index 8d50439d15f..c2f08c62d9d 100644
--- a/Master/tlpkg/tlperl/lib/HTML/LinkExtor.pm
+++ b/Master/tlpkg/tlperl/lib/HTML/LinkExtor.pm
@@ -2,7 +2,7 @@ package HTML::LinkExtor;
require HTML::Parser;
@ISA = qw(HTML::Parser);
-$VERSION = "3.60";
+$VERSION = "3.69";
=head1 NAME
@@ -83,8 +83,8 @@ sub _start_tag
my $a;
for $a (@$links) {
next unless exists $attr->{$a};
- push(@links, $a, $base ? URI->new($attr->{$a}, $base)->abs($base)
- : $attr->{$a});
+ (my $link = $attr->{$a}) =~ s/^\s+//; $link =~ s/\s+$//; # HTML5
+ push(@links, $a, $base ? URI->new($link, $base)->abs($base) : $link);
}
return unless @links;
$self->_found_link($tag, @links);