Fixed a warning I missed and a typo.

src/API/Std.pm

@@ -139,12 +139,7 @@ sub event_run
 	
 	if (defined $EVENTS{lc($event)} and defined $HOOKS{lc($event)}) {
 		foreach my $hk (keys %{ $HOOKS{lc($event)} }) {
-			if (defined @args) {
+			&{ $HOOKS{lc($event)}{$hk} }(@args);
-				&{ $HOOKS{lc($event)}{$hk} }(@args);
-			}
-			else {
-				&{ $HOOKS{lc($event)}{$hk} }();
-			}
 		}
 	}
 	

src/Parser/IRC.pm

@@ -181,7 +181,7 @@ sub num475
 
 # Parse: Numeric:477
 # Cannot join channel: Need registered nickname.
-sub num473
+sub num477
 {
 	my ($svr, (undef, undef, undef, $chan)) = @_;