don't allow $server::net_clients to go negative (sigh!)

[pxelator] / lib / PXElator / client.pm

diff --git a/lib/PXElator/client.pm b/lib/PXElator/client.pm
index 6760ebf..ae224ac 100644 (file)
--- a/lib/PXElator/client.pm
+++ b/lib/PXElator/client.pm
@@ -85,8 +85,8 @@ sub next_ip($) {
        my $mac = shift;
        $mac = format::mac($mac);
 
-       if ( $server::new_clients-- ) {
-               warn "# clients left: $server::new_clients\n";
+       if ( $server::new_clients > 0 ) {
+               warn "# clients left: ", --$server::new_clients;
        } else {
                warn "W: no new clients accepted";
                return '0.0.0.0';