From 4fd276f0e57bf42363363ffa6ef09f1bfb9d2f3c Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Tue, 23 Sep 2008 21:32:44 +0000
Subject: [PATCH] include full link tag in cleanSegment

---
 lib/WebGUI/HTML.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/HTML.pm b/lib/WebGUI/HTML.pm
index e92c25b29..5093392ae 100644
--- 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