Improve legibility of numeric literal

diff --git a/src/test/perl/PostgresNode.pm b/src/test/perl/PostgresNode.pm
index 4f414c3c03f9845eaa2fbc230f850f72fbfb28cd..d87296af0863318b74712261dc296cfd68b463da 100644 (file)
--- 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++;
        }