From d88ab5e54acfdf4292445567d8d9d4e40cd5c865 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 22 Jun 2017 13:55:06 +0200
Subject: simplify: use //= where appropirate

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

(limited to 'lib/network/tools.pm')

diff --git a/lib/network/tools.pm b/lib/network/tools.pm
index 92e4765..0f21fdd 100644
--- a/lib/network/tools.pm
+++ b/lib/network/tools.pm
@@ -96,7 +96,7 @@ sub test_connected {
     local $| = 1;
     my ($cmd) = @_;
     
-    $current_connection_status = -1 if !defined $current_connection_status;
+    $current_connection_status //= -1;
     
     if ($cmd == 0) {
         connected_bg__raw(\$kid_pipe_connect, \$current_connection_status);
-- 
cgit v1.2.1