bug fix

lib/commands/parser.pm

@@ -42,7 +42,7 @@ sub exec {
 	my ($kernel, $user, $chan, $msg) = @_;
 	my ($nick, $mask) = split(/!/,$user);
 
-    $re_place_t ="\\ +@\\ +(?<place>[^:]*)";
+    my $re_place_t ="\\ +@\\ +(?<place>[^:]*)";
 
     if ($msg =~ m=^Sam(?:,|:)                           # hl
             \ +(?<add_user>je\ +(vais|viens)\ +à\ +)?   # add_user