From 0561a41a9fde9b86999f5acf86047ef098c3df7c Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 23 Apr 2017 03:04:27 +0200
Subject: [PATCH] source: disable syntax highlighting for large files

Attempt to keep responses within 2 seconds on my slow server; large files
are mostly data includes which do not benefit much from markup anyway.
---
 source.plp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/source.plp b/source.plp
index 1f934ae..e3b2609 100644
--- a/source.plp
+++ b/source.plp
@@ -66,8 +66,10 @@ else {
 		}
 	}
 	-r $source or die "Requested file not found\n";
+	my $size = (stat $source)->[7];
 
 	if (my $hl = eval {
+		$size < 32_768 or die 'large files take too long to parse';
 		require Text::VimColor;
 		Text::VimColor->VERSION(0.12)
 			or die 'early versions are buggy under FastCGI';
-- 
2.30.0