From 1d1a5270c9457b7ab13f5b0b606d142eb719bb5c Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Sun, 22 Jan 2012 17:26:13 +0000
Subject: [PATCH] increase WHILE_MAX to allow very long lists of ports

---
 Netdisco/lib/Netdisco/Web.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Netdisco/lib/Netdisco/Web.pm b/Netdisco/lib/Netdisco/Web.pm
index 0744d76f..a16b96dd 100644
--- a/Netdisco/lib/Netdisco/Web.pm
+++ b/Netdisco/lib/Netdisco/Web.pm
@@ -20,6 +20,9 @@ hook 'before_template' => sub {
 
     # allow portable dynamic content
     $tokens->{uri_for} = \&uri_for;
+
+    # allow very long lists of ports
+    $Template::Directive::WHILE_MAX = 10_000;
 };
 
 get '/' => sub {