--- format_identify.pl.orig	2009-01-20 18:53:03.085621813 +0000
+++ format_identify.pl	2009-01-20 18:53:15.365584858 +0000
@@ -319,18 +317,18 @@
 			@format_identify_notice_formats) {
 			$server->command("^format -reset $format");
 		}
-	}
-	foreach my $server_name (keys %servers) {
-		if ( $servers{$server_name}->{'IDENTIFY-MSG'} 
-			|| $servers{$server_name}->{'IDENTIFY-CTCP'})
-		{
-			if($servers{$server_name}->{'USES-CAP'}) {
-				$server->command("^quote cap req :-identify-msg");
-			} else {
-				push @warning_servers, $server_name;
+		foreach my $server_name (keys %servers) {
+			if ( $servers{$server_name}->{'IDENTIFY-MSG'} 
+				|| $servers{$server_name}->{'IDENTIFY-CTCP'})
+			{
+				if($servers{$server_name}->{'USES-CAP'}) {
+					$server->command("^quote cap req :-identify-msg");
+				} else {
+					push @warning_servers, $server_name;
+				}
 			}
 		}
-	} 
+	}
 	print('Warning: Unloading format_identify will leave your messages '.
 		'and notices modified and will break CTCPs on the following '.
 		'servers: ' . join (',',@warning_servers));