[miscperl] r274: LJSUP-13883: Journal pages optimizaiton ...

U   trunk/HTMLCleaner.pm

Modified: trunk/HTMLCleaner.pm
===================================================================
--- trunk/HTMLCleaner.pm	2012-04-09 13:56:48 UTC (rev 273)
+++ trunk/HTMLCleaner.pm	2012-10-17 08:30:12 UTC (rev 274)
@@ -178,6 +178,8 @@
         return;
     }
 
+    return unless $text =~ /(<|>)/;
+
     # this string is magic [hack].  (See $out_straight in
     # cgi-bin/LJ/S2.pm) callers can print "<!-- -->" to HTML::Parser
     # just to make it flush, since HTML::Parser has no
@@ -187,6 +189,7 @@
     # the parser gives us back text whenever it's confused
     # on really broken input.  sadly, IE parses really broken
     # input, so let's escape anything going out this way.
+    
     $self->{'output'}->(eangles($text));
 }