From 4dbd146905f4e6ac5b849499b40993b53c868f8b Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Thu, 19 Sep 2002 11:29:20 +0000
Subject: fix spurious ";" before closing block

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

diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index d68f93747..8f81c4c1b 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -173,7 +173,7 @@ sub test_connected {
     local $|=1;
     my ($cmd) = @_;
 
-    if (!defined $current_connection_status) { $current_connection_status = -1; }
+    if (!defined $current_connection_status) { $current_connection_status = -1 }
 
     if ($cmd == 0) {
         if (defined $kid_pipe_connect) {
-- 
cgit v1.2.1