Sorry, put chunckby in the wrong place :(

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;