Changeset 11636 for lang/perl/XIRCD/trunk/lib/XIRCD/Server.pm

Timestamp:

05/15/08 18:46:42 (5 years ago)

Author:

kan

Message:

X:C:Twitter !

Files:

• lang/perl/XIRCD/trunk/lib/XIRCD/Server.pm (modified) (4 diffs)

lang/perl/XIRCD/trunk/lib/XIRCD/Server.pm

@@ -32 +32 @@
 
 sub debug(@) { ## no critic.
-    print @_ if $ENV{XIRCD_DEBUG};
+    print @_, "\n\n" if $ENV{XIRCD_DEBUG};
 }
 
@@ -44 +44 @@
     $self->alias('ircd');
 
-    debug "start irc \n\n";
+    debug "start irc";
 
     $self->config->{servername} ||= 'xircd.ircd';
@@ -74 +74 @@
     my ($nick, $channel, $message) = get_args(@_);
 
-    debug "publish to irc: [$channel] $nick : $message \n\n";
+    debug "publish to irc: [$channel] $nick : $message";
 
     $self->nicknames->{$channel} ||= {};
@@ -93 +93 @@
     my ($channel, $message) = get_args(@_);
 
-    debug "notice to irc: [$channel] $message \n\n";
+    debug "notice to irc: [$channel] $message";
 
     #$message = encode( $self->config->{client_encoding}, $message );