Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-09 06:45: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. # The actual max is usually 512 but you need room for nicks and command types.
if( length $$output_ref > 400 ) { if( length $$output_ref > 400 ) {
# Sanity checking, let's not store novels. # Sanity checking, let's not store novels. yes lets
if( length $$output_ref > 1_000 ) { # if( length $$output_ref > 1_000 ) {
my $new_out = $$output_ref = substr( $$output_ref, 0, 1_000 ); # my $new_out = $$output_ref = substr( $$output_ref, 0, 1_000 );
$$output_ref = $new_out; # $$output_ref = $new_out;
#
warn "Sanity checking, new length: ", length $$output_ref; # warn "Sanity checking, new length: ", length $$output_ref;
} # }
my $new_text = substr( $$output_ref, 0, 350, '' ); my $new_text = substr( $$output_ref, 0, 350, '' );