diff --git a/lib/commands/parser.pm b/lib/commands/parser.pm index 6baa3d0f5d103a57ab4068068e2482f73b8e67ee..95b2b63e142f16a3652c1991d21a9b363fd3d24c 100644 --- a/lib/commands/parser.pm +++ b/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