diff --git a/src/test/perl/PostgresNode.pm b/src/test/perl/PostgresNode.pm
index 4f414c3c03..d87296af08 100644
--- a/src/test/perl/PostgresNode.pm
+++ b/src/test/perl/PostgresNode.pm
@@ -1249,7 +1249,7 @@ sub poll_query_until
 		}
 
 		# Wait 0.1 second before retrying.
-		usleep(100000);
+		usleep(100_000);
 
 		$attempts++;
 	}