Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 16:55:42 -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.
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, '' );