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

Merge branch 'master' of gitosis@isuckatdomains.net:perlbuut

Browse source
This commit is contained in:
Ryan Voots 2010-01-04 22:51:41 -05:00
commit d42fb0bed3
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, '' );