diff --git a/bot.pl b/bot.pl index 864e0b8..0a713d3 100644 --- a/bot.pl +++ b/bot.pl @@ -263,6 +263,18 @@ sub make_client { } +sub chunkby { + my ($a,$len) = @_; + my @out = (); + while (length($a) > $len) { + push @out,substr($a,0,$len); + $a = substr($a,$len); + } + push @out, $a if ($a); + return @out; +} + + # overload the IRC::Client connect method to let us defined a prebinding callback package AnyEvent::IRC::Client::Pre; @@ -295,15 +307,4 @@ sub connect { } -sub chunkby { - my ($a,$len) = @_; - my @out = (); - while (length($a) > $len) { - push @out,substr($a,0,$len); - $a = substr($a,$len); - } - push @out, $a if ($a); - return @out; -} - 1;