include full link tag in cleanSegment

2008-09-23 21:32:44 +00:00 · 2008-09-23 21:32:44 +00:00 · 4fd276f0e5
commit 4fd276f0e5
parent d529da257d
1 changed files with 1 additions and 1 deletions
--- a/lib/WebGUI/HTML.pm
+++ b/lib/WebGUI/HTML.pm
@ -67,7 +67,7 @@ sub cleanSegment {
    if ($html =~ s{(.*)<body\b.*?>}{}is && $preserveStyleScript) {
        my $head = $1;
        # extract every link tag
-        while ( $head =~ m{(<link[^>]+)}isg ) {
+        while ( $head =~ m{(<link\b[^>]+>)}isg ) {
            $headers .= $1;
        }
        # extract every script or style tag