diff options
author | David Phillips <david@sighup.nz> | 2019-06-23 17:26:31 +1200 |
---|---|---|
committer | David Phillips <david@sighup.nz> | 2019-06-23 17:26:31 +1200 |
commit | 552f720370023b7ceb83f5991f6c53f8e1274cb0 (patch) | |
tree | 474072fa958473e22db126d7a895e6cccc995b53 /Plugin | |
parent | 688f221efc904526cbd099f53fe2ce6cc76e50ff (diff) | |
download | idalius-552f720370023b7ceb83f5991f6c53f8e1274cb0.tar.xz |
Plugin/Dad: Fix accidental escape in regex
Diffstat (limited to 'Plugin')
-rw-r--r-- | Plugin/Dad.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Plugin/Dad.pm b/Plugin/Dad.pm index 096017f..27d10aa 100644 --- a/Plugin/Dad.pm +++ b/Plugin/Dad.pm @@ -35,7 +35,7 @@ sub on_message { $what = Encode::decode('utf8', $what); print "$what\n"; - if ($what =~ /^i('\''|\s+a)m\s+(\w+)\s*$/) { + if ($what =~ /^i('|\s+a)m\s+(\w+)\s*$/) { return "Hi ".$2.", I'm dad"; } return; |