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++;
    }