Added $got_001 to Parser::IRC for checking if we've been sent 001.

src/Parser/IRC.pm

@@ -14,6 +14,9 @@ our %RAWC = (
 	'001' => \&num001,
 );
 
+# Variables for various functions.
+our (%got_001);
+
 # Parse raw data.
 sub _parse
 {
@@ -47,6 +50,8 @@ sub num001
 {
 	my ($svr, @ex) = @_;
 	
+	$got_001{$svr} = 1;
+	
 	# Get the auto-join from the config.
 	my @cajoin = @{ (conf_get("server:$svr:ajoin"))[0] };