include full link tag in cleanSegment
This commit is contained in:
parent
d529da257d
commit
4fd276f0e5
1 changed files with 1 additions and 1 deletions
|
|
@ -67,7 +67,7 @@ sub cleanSegment {
|
||||||
if ($html =~ s{(.*)<body\b.*?>}{}is && $preserveStyleScript) {
|
if ($html =~ s{(.*)<body\b.*?>}{}is && $preserveStyleScript) {
|
||||||
my $head = $1;
|
my $head = $1;
|
||||||
# extract every link tag
|
# extract every link tag
|
||||||
while ( $head =~ m{(<link[^>]+)}isg ) {
|
while ( $head =~ m{(<link\b[^>]+>)}isg ) {
|
||||||
$headers .= $1;
|
$headers .= $1;
|
||||||
}
|
}
|
||||||
# extract every script or style tag
|
# extract every script or style tag
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue