- remove unnecessary linebreaks in debug messages

diff --git a/docbot.pl b/docbot.pl
index 59c260287b03ceeaf7a6498accbdb8f5c9c5e044..e63dd57f21449b20f1f959a275a5f89527ff3e88 100755 (executable)
--- a/docbot.pl
+++ b/docbot.pl
@@ -1072,7 +1072,7 @@ sub session_for_channel {
 # return:
 #  none
 sub death {
-    print_msg("death()\n", DEBUG);
+    print_msg("death()", DEBUG);
     my $text = '';
     if (defined($_[0])) {
         $text = shift;
@@ -1111,7 +1111,7 @@ sub death {
 #  none
 sub interrupt_handler_quit {
     my ($kernel, $text) = @_[KERNEL, ARG0];
-    print_msg("interrupt_handler()\n", DEBUG);
+    print_msg("interrupt_handler()", DEBUG);
 
 
     if ($text =~ m/^(INT|TERM|KILL|HUP)$/) {
@@ -3324,7 +3324,7 @@ sub on_start {
     my ($kernel, $heap) = @_[KERNEL, HEAP];
     my $irc = $heap->{irc};
     my $session = find_irc_session($irc);
-    print_msg("on_start(session: $session)\n", DEBUG);
+    print_msg("on_start(session: $session)", DEBUG);
 
 
     $irc->yield( register => 'all' );
@@ -3635,7 +3635,7 @@ sub on_whois_identified {
 
     my $irc = $sender->get_heap();
     my $session = find_irc_session($irc);
-    print_msg("on_whois_identified(session: $session, nick: $nick)\n", DEBUG);
+    print_msg("on_whois_identified(session: $session, nick: $nick)", DEBUG);
 
     if (defined($heap->{whois_callback}->{$nick})) {
         print_msg("Nick $nick is authed", DEBUG);
@@ -3654,7 +3654,7 @@ sub on_whois_end {
 
     my $irc = $sender->get_heap();
     my $session = find_irc_session($irc);
-    print_msg("on_whois_end(session: $session, nick: $nick)\n", DEBUG);
+    print_msg("on_whois_end(session: $session, nick: $nick)", DEBUG);
 
     if (defined($heap->{whois_callback}->{$nick}->{event})) {
         $irc->send_event($heap->{whois_callback}->{$nick}->{event} => @{$heap->{whois_callback}->{$nick}->{args}});
@@ -3671,7 +3671,7 @@ sub on_ping {
 
     my $irc = $sender->get_heap();
     my $session = find_irc_session($irc);
-    print_msg("on_ping(session: $session)\n", DEBUG);
+    print_msg("on_ping(session: $session)", DEBUG);
 
     set_session_activity($session);
 }
@@ -3688,7 +3688,7 @@ sub do_autoping {
 
     my $irc = $sender->get_heap();
     my $session = find_irc_session($irc);
-    print_msg("do_autoping(session: $session)\n", DEBUG);
+    print_msg("do_autoping(session: $session)", DEBUG);
 
 
     set_session_activity($session);
@@ -3711,7 +3711,7 @@ sub on_irc_registered {
 
     my $irc = $sender->get_heap();
     my $session = find_irc_session($irc);
-    #print_msg("on_irc_registered(session: $session)\n", DEBUG);
+    #print_msg("on_irc_registered(session: $session)", DEBUG);
 
     set_session_activity($session);
 }
@@ -3726,7 +3726,7 @@ sub on_irc_plugin_add {
 
     my $irc = $sender->get_heap();
     my $session = find_irc_session($irc);
-    #print_msg("on_irc_plugin_add(session: $session)\n", DEBUG);
+    #print_msg("on_irc_plugin_add(session: $session)", DEBUG);
 
     set_session_activity($session);
 }