From cd394b6907c15c9a6a9161022a9e58f403f9618a Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Tue, 4 Aug 2009 14:55:13 +0200
Subject: [PATCH] Fix, don't add functions with no attributes

---
 Dispatcher.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Dispatcher.pm b/Dispatcher.pm
index 16dae1d..8d7ffe9 100644
--- 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;
-- 
2.39.2