diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/HTML/LinkExtor.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/HTML/LinkExtor.pm | 6 |
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); |