Proper disconnect handling for smanagrun

1 files changed, 2 insertions, 3 deletions

diff --git a/clients/smanagrun.pl b/clients/smanagrun.pl
index 0e2302e..9df4b96 100755
--- a/clients/smanagrun.pl
+++ b/clients/smanagrun.pl
@@ -104,7 +104,7 @@ while (1) {
 		$error = $sgetallpoll->execute($switch->{sysname});
 		if (!$error) {
 			print "Could not execute sgetallpoll\n".$dbh->errstr();
-			$conn->close;
+			switch_disconnect($ssh);
 			next;
 		}
 		while (my $row = $sgetallpoll->fetchrow_hashref()) {
@@ -142,8 +142,7 @@ while (1) {
 			my $result = join("\n", @data);
 			$sresult->execute($result, $row->{id});
 		}
-		$conn->close();
-		waitpid($ssh->{pid}, 0);
+		switch_disconnect($ssh);
 		$sunlock->execute($switch->{sysname});
 	};
 	if ($@) {