$bot_pid $memusage %param
);
$bot_pid $memusage %param
);
+# ancient Perl may not like these, but modern systems should have this
+use open ':utf8';
+use open ':std';
+
BEGIN {
if ( @ARGV and -f $ARGV[0] ) {
BEGIN {
if ( @ARGV and -f $ARGV[0] ) {
use vars qw($b_blue $ob);
use vars qw(@ircServers);
use vars qw($b_blue $ob);
use vars qw(@ircServers);
-#use open ':utf8';
-#use open ':std';
-
$nickserv = 0;
# It's probably closer to 510, but let's be cautious until we calculate it extensively.
$nickserv = 0;
# It's probably closer to 510, but let's be cautious until we calculate it extensively.
&ERROR('If this is still a problem, please contact the maintainer.');
}
if (defined $conns{$mynick}) {
&ERROR('If this is still a problem, please contact the maintainer.');
}
if (defined $conns{$mynick}) {
+ # explicit binmode for socket as "use open" does not seem to work here
+ binmode $conns{$mynick}->{_socket}, ":utf8";
+
$conns{$mynick}->maxlinelen($maxlinelen);
# handler stuff.
$conns{$mynick}->maxlinelen($maxlinelen);
# handler stuff.