From: Dan Brook <broq@cpan.org>
Date: Sun, 5 Jun 2011 21:20:06 +0000 (+0200)
Subject: Don't attempt to syntax highlight anything big.
X-Git-Tag: 0.003003~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=21ede19a2ccdeb63f3b49aa1944e6fc4015af0f2;p=catagits%2FGitalist.git

Don't attempt to syntax highlight anything big.

Basically Syntax::Highlight::Kate is slow and trying to prettify
anything relative big s really slow. So just don't even try. Sad face.
---

diff --git a/lib/Gitalist/View/SyntaxHighlight.pm b/lib/Gitalist/View/SyntaxHighlight.pm
index 9c28341..4f675ab 100644
--- a/lib/Gitalist/View/SyntaxHighlight.pm
+++ b/lib/Gitalist/View/SyntaxHighlight.pm
@@ -17,6 +17,9 @@ sub process {
 
 sub render {
     my ($self, $c, $blob, $args) = @_;
+
+    # Don't bother with anything over 64kb, it'll be tragically slow.
+    return encode_entities $blob if length $blob > 8192;
     
     my $lang = $args->{language};