From 04b8d8da1e8c0f02bfc87a85176ed78a7b266f84 Mon Sep 17 00:00:00 2001
From: Vernon Lyon <vlyon@cpan.org>
Date: Thu, 15 Jul 2021 14:36:10 +0100
Subject: [PATCH] Bugfix for missing $link argument in _ping_server method

---
 lib/MongoDB/_Topology.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/MongoDB/_Topology.pm b/lib/MongoDB/_Topology.pm
index 91c1242f..f821596a 100644
--- a/lib/MongoDB/_Topology.pm
+++ b/lib/MongoDB/_Topology.pm
@@ -976,7 +976,7 @@ sub _get_server_link {
 
     # for idle links, refresh the server and verify validity
     if ( time - $link->last_used > $self->socket_check_interval_sec ) {
-        return $link if $self->_ping_server;
+        return $link if $self->_ping_server( $link );
         $self->mark_server_unknown(
           $server, 'Lost connection with the server'
         );