From 226a5ccd074b8840ca83d50376f8b26b9d9ffd97 Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Tue, 26 Jul 2016 08:53:29 -0400
Subject: More stuff

---
 lib/IRC/Client.pm6 | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'lib/IRC/Client.pm6')

diff --git a/lib/IRC/Client.pm6 b/lib/IRC/Client.pm6
index 5069d31..9e3bfbd 100644
--- a/lib/IRC/Client.pm6
+++ b/lib/IRC/Client.pm6
@@ -93,17 +93,15 @@ method send (:$where!, :$text!, :$server, :$notice) {
     }
 }
 
-method send-cmd ($cmd, *@args is copy, :$server) {
+method send-cmd ($cmd, *@args is copy, :$server, :$prefix = '') {
     CATCH { default { warn $_; warn .backtrace } }
 
-    say "About to check filter stuff `{@!filters}`";
     if $cmd eq 'NOTICE'|'PRIVMSG' and @!filters
         and my @f = @!filters.grep({
                .signature.ACCEPTS: \(@args[1])
             or .signature.ACCEPTS: \(@args[1], where => @args[0])
         })
     {
-        say "Starting filtering: `@f[]`";
         start {
             CATCH { default { warn $_; warn .backtrace } }
 
@@ -114,7 +112,7 @@ method send-cmd ($cmd, *@args is copy, :$server) {
                     when 2 { ($text, $where) = $f($text, :$where) }
                 }
             }
-            self!ssay: :$server, join ' ', $cmd, $where, ":$text";
+            self!ssay: :$server, join ' ', $cmd, $where, ":$prefix$text";
         }
     }
     else {
-- 
cgit v1.1