Code

Added check.
authorjanw <janw@594d385d-05f5-0310-b6e9-bd551577e9d8>
Mon, 14 Apr 2008 13:49:03 +0000 (13:49 +0000)
committerjanw <janw@594d385d-05f5-0310-b6e9-bd551577e9d8>
Mon, 14 Apr 2008 13:49:03 +0000 (13:49 +0000)
git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@10426 594d385d-05f5-0310-b6e9-bd551577e9d8

gosa-si/modules/SIPackages.pm

index 6542eeaa0e83dd1f143148f38373948675d8c695..b14caeafb460cc8a1619d6ae4845359c41066176 100644 (file)
@@ -918,7 +918,11 @@ sub hardware_config {
 
 sub server_matches {
        my $target = shift;
-       my $target_ip = sprintf("%s", $target =~ /^([0-9\.]*?):.*$/);
+       my $target_ip = ($1) if $target =~ /^([0-9\.]*?):.*$/;
+       if(!defined($target_ip) or length($target_ip) == 0) {
+               return;
+       }
+
        my $result = 0;
 
        if($server_ip eq $target_ip) {