From 9a93db94b0d4a052c964cedea738524ec3be3b3b Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Wed, 13 Jun 2007 20:35:38 +0000
Subject: * fixed all warnings indicated by 'perl -w'

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1162 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 config-db/slxconfig | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'config-db/slxconfig')

diff --git a/config-db/slxconfig b/config-db/slxconfig
index d8c90e42..fe70e48b 100755
--- a/config-db/slxconfig
+++ b/config-db/slxconfig
@@ -295,7 +295,7 @@ sub addClientToConfigDB
 	my $clientID = $openslxDB->addClient([$clientData]);
 	vlog 0, _tr("client '%s' has been successfully added to DB (ID=%s)\n",
 				$clientName, $clientID);
-	if (defined @systemIDs) {
+	if (@systemIDs) {
 		$openslxDB->addSystemIDsToClient($clientID, \@systemIDs);
 	}
 	if ($verbose) {
@@ -374,7 +374,7 @@ sub addSystemToConfigDB
 	my $systemID = $openslxDB->addSystem([$systemData]);
 	vlog 0, _tr("system '%s' has been successfully added to DB (ID=%s)\n",
 				$systemName, $systemID);
-	if (defined @clientIDs) {
+	if (@clientIDs) {
 	    $openslxDB->addClientIDsToSystem($systemID, \@clientIDs);
 	}
 	if ($verbose) {
@@ -450,7 +450,7 @@ sub changeClientInConfigDB
 
 	$openslxDB->changeClient($client->{id}, [$clientData]);
 	vlog 0, _tr("client '%s' has been successfully changed\n", $clientName);
-	if (defined @systemIDs) {
+	if (@systemIDs) {
 		$openslxDB->setSystemIDsOfClient($client->{id}, \@systemIDs);
 	}
 	if ($verbose) {
@@ -520,7 +520,7 @@ sub changeSystemInConfigDB
 	}
 	$openslxDB->changeSystem($system->{id}, [$systemData]);
 	vlog 0, _tr("system '%s' has been successfully changed\n", $systemName);
-	if (defined @clientIDs) {
+	if (@clientIDs) {
 	    $openslxDB->setClientIDsOfSystem($system->{id}, \@clientIDs);
 	}
 	if ($verbose) {
-- 
cgit v1.2.3-55-g7522