Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-09 03:25:41 -04:00
Code Issues Releases Wiki Activity

removing max length on more, perlbot needs it

Browse source
This commit is contained in:
Ryan Voots 2010-01-04 22:51:19 -05:00
parent 5eca97ace6
commit 679efa3e30
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
plugins/more.pm
View file

@ -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, '' );