]> git.etc.gen.nz Git - spong.git/commitdiff
removed old patches trying to fix spong-server crash caused by server_objects()
authorStephen L Johnson <sjohnson@monsters.org>
Wed, 26 Jan 2000 05:36:13 +0000 (05:36 +0000)
committerStephen L Johnson <sjohnson@monsters.org>
Wed, 26 Jan 2000 05:36:13 +0000 (05:36 +0000)
and services()

src/lib/Spong/Host.pm

index 106a59a511d64c2a92bdfcde68f2b68d3d29a326..13e12b9b9d6da9eacde00ddd0cc46c39238dad0e 100755 (executable)
@@ -149,7 +149,6 @@ sub has_color {
    my( $self, $color ) = @_;
 
    foreach( $self->service_objects() ) {
-      if (! defined $_) { next; }
       if( $_->color() eq $color ) { return 1; } }
 
    return 0;
@@ -354,7 +353,6 @@ sub _problem_service {
    my( $services, @problist, $probtime, $summary );
 
    foreach $service ( $self->service_objects() ) {
-      if ( ! defined $service ) { next; }
       if( $service->has_problem() ) {
         push( @problist, $service->name() );
         $summary = $service->summary();
@@ -381,7 +379,6 @@ sub _problem_message {
    my( $services, @problist, $probtime, $summary );
 
    foreach $service ( $self->service_objects() ) {
-      if( ! defined $service ) { next; }
       if( $service->has_problem() ) {
         push( @problist, $service->name() );
         $summary = $service->summary();