Add command name as argument and modify quote commands

[NDIRC.git] / Misc.pm

diff --git a/Misc.pm b/Misc.pm
index 926ad0adaa83a71b7b39ea7039e1b56465ae6cb3..37501f20d3944b5ef244e66ff24c1a0ca25dae15 100644 (file)
--- a/Misc.pm
+++ b/Misc.pm
@@ -72,7 +72,7 @@ sub parseCommand {
                        my $a = $commands{$c}->{acc};
                        my $b = (exists $channels{lc $channel} ? $channels{lc $channel} : ['all']);
                        if (intersect($a,$b) > 0){
-                               $commands{$c}->{fun}->($args);
+                               $commands{$c}->{fun}->($args,$c);
                                return 1;
                        }
                }