Changeset 2940

Timestamp:

08/19/08 01:13:29 (3 months ago)

Author:

bchoate

Message:

Applied patch regex to strip leading whitespace ahead of DOCTYPE and xml pragma. BugId:80996 (thanks, Jay)

Files:

• trunk/lib/MT/App.pm (modified) (2 diffs)
• trunk/lib/MT/WeblogPublisher.pm (modified) (2 diffs)

trunk/lib/MT/App.pm

@@ -2632 +2632 @@
-            }
-
-            # Some browsers throw you to quirks mode if the doctype isn't
-            # up front.
-            $body =~ s/^\s+(<!DOCTYPE)/$1/s if defined $body;
-
-            unless ( defined $body
-                || $app->{redirect}
@@ -2727 +2723 @@
-                }
-            }
+
+            # Some browsers throw you to quirks mode if the doctype isn't
+            # up front and leading whitespace makes a feed invalid.
+            $body =~ s/\A\s+(<(?:\?xml|!DOCTYPE))/$1/s if defined $body;
+
-            $app->print($body);
-        }

trunk/lib/MT/WeblogPublisher.pm

@@ -1297 +1297 @@
-          );
-        }
+
+        # Some browsers throw you to quirks mode if the doctype isn't
+        # up front and leading whitespace makes a feed invalid.
+        $html =~ s/\A\s+(<(?:\?xml|!DOCTYPE))/$1/s;
+
-        my $orig_html = $html;
-        MT->run_callbacks(
@@ -1568 +1573 @@
-        }
-
+        # Some browsers throw you to quirks mode if the doctype isn't
+        # up front and leading whitespace makes a feed invalid.
+        $html =~ s/\A\s+(<(?:\?xml|!DOCTYPE))/$1/s;
+
-        my $orig_html = $html;
-        MT->run_callbacks(