* Fix /me actions in console log

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@1596 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/IRC/IrcHooks.pl b/src/IRC/IrcHooks.pl
index 319d0c078eb96282a766b59d86cd475d829c3d46..c3544f1f8b74cba3649a40b0e3c61f937a555c6a 100644 (file)
--- a/src/IRC/IrcHooks.pl
+++ b/src/IRC/IrcHooks.pl
@@ -24,15 +24,13 @@ sub on_generic {
 sub on_action {
     $conn = shift(@_);
     my ($event) = @_;
-    my ($nick, @args) = ($event->nick, $event->args);
+    my ($nick, $args) = ($event->nick, $event->args);
     my $chan = ($event->to)[0];
 
-    shift @args;
-
     if ($chan eq $ident) {
-       &status("* [$nick] @args");
+       &status("* [$nick] $args");
     } else {
-       &status("* $nick/$chan @args");
+       &status("* $nick/$chan $args");
     }
 }