Read all supplied lines from STDIN, not just first one.

.perlcriticrc

@@ -26,3 +26,4 @@ verbose     = 8
 [-Modules::RequireVersionVar]
 [-CodeLayout::RequireTidyCode]
 [-TestingAndDebugging::RequireUseWarnings]
+[-ControlStructures::ProhibitDeepNests]

i3status-anyevent

@@ -229,11 +229,10 @@ sub add_events () {
 		fh   => \*STDIN,
 		poll => 'r',
 		cb   => sub {
-			my $msg = <>;
-
+			while (my $msg = <>) {
 				unless ($STDIN_FIRST_LINE_DROPPED) {
-				$msg = <>;
 					$STDIN_FIRST_LINE_DROPPED = 1;
+					next;
 				}
 
 				if ($msg) {
@@ -277,6 +276,7 @@ sub add_events () {
 					}
 				}
 			}
+		}
 	);
 
 	# poll caps lock status, on one of my laptop there is no led for this :(