From 679efa3e3078247321b63b7b5a70e4e902b5b378 Mon Sep 17 00:00:00 2001
From: Ryan Voots <simcop2387@yahoo.com>
Date: Mon, 4 Jan 2010 22:51:19 -0500
Subject: [PATCH] removing max length on more, perlbot needs it

---
 plugins/more.pm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/plugins/more.pm b/plugins/more.pm
index 18e0573..c7064ab 100644
--- a/plugins/more.pm
+++ b/plugins/more.pm
@@ -41,13 +41,13 @@ sub post_process {
 	# The actual max is usually 512 but you need room for nicks and command types.
 	if( length $$output_ref > 400 ) {
 
-		# Sanity checking, let's not store novels.
-		if( length $$output_ref > 1_000 ) { 
-			my $new_out = $$output_ref = substr( $$output_ref, 0, 1_000 ); 
-			$$output_ref = $new_out;
-
-			warn "Sanity checking, new length: ", length $$output_ref;
-		}
+		# Sanity checking, let's not store novels. yes lets
+#		if( length $$output_ref > 1_000 ) { 
+#			my $new_out = $$output_ref = substr( $$output_ref, 0, 1_000 ); 
+#			$$output_ref = $new_out;
+#
+#			warn "Sanity checking, new length: ", length $$output_ref;
+#		}
 
 		my $new_text = substr( $$output_ref, 0, 350, '' );