From 7599fb0c19fafce097f22e7673bbc1ae97f5dac9 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Fri, 27 Mar 2015 13:00:43 -0700
Subject: [PATCH] Correct handling of bot trigger in /msg since earlier commit
 allowing trigger to be a regex

---
 PBot/IRCHandlers.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/PBot/IRCHandlers.pm b/PBot/IRCHandlers.pm
index cfb71124..cf05ef82 100644
--- a/PBot/IRCHandlers.pm
+++ b/PBot/IRCHandlers.pm
@@ -110,9 +110,11 @@ sub on_msg {
   my ($self, $event_type, $event) = @_;
   my ($nick, $host) = ($event->{event}->nick, $event->{event}->host);
   my $text = $event->{event}->{args}[0];
-  my $bot_trigger = $self->{pbot}->{registry}->get_value('general', 'trigger');
 
-  $text =~ s/^\Q$bot_trigger\E?(.*)/$bot_trigger$1/;
+  my $bot_trigger = $self->{pbot}->{registry}->get_value('general', 'trigger');
+  my $bot_nick    = $self->{pbot}->{registry}->get_value('irc', 'botnick');
+
+  $text =~ s/^$bot_trigger?\s*(.*)/$bot_nick $1/;
   $event->{event}->{to}[0]   = $nick;
   $event->{event}->{args}[0] = $text;
   $self->on_public($event_type, $event);