Fix, don't add functions with no attributes

diff --git a/Dispatcher.pm b/Dispatcher.pm
index 16dae1de9d4e2e637ed03a2c727710db74ad87ad..8d7ffe9843893ba2768cced2fd149a8becec64c5 100644 (file)
--- a/Dispatcher.pm
+++ b/Dispatcher.pm
@@ -67,7 +67,7 @@ sub load_class {
        my @subs = eval "$class->meta->get_method_list";
        for my $c (@subs){
                my $attr = eval "$class->meta->get_method('$c')->attributes";
-               if ($attr){
+               if (@$attr){
                        print "Command: $c";
                        my %c = (channels => ['all']);
                        my @aliases;