Changeset 628 for LATMOS-Accounts/lib/LATMOS

Timestamp:

01/17/10 15:43:13 (14 years ago)

Author:

nanardon

Message:

• fix numeric evaluation to discover next uid/gid

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm (modified) (1 diff)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

@@ -423 +423 @@
         my $obj = $base->get_object($class->type, $_) or next;
         my $id = $obj->_get_c_field($field) or next;
-        $existsid{$id} = 1;
-    }
+        $existsid{$id + 0} = 1;
+    }
+    $min += 0;
+    $max += 0;
     for(my $i = $min; $i <= $max; $i++) {
-        $existsid{$i} or return $i;
+        $existsid{$i + 0} or do {
+            $base->log(LA_DEBUG, "Next %s found: %d", $field, $i);
+            return $i;
+        };
     }
     return;