[Omaha.pm] we need a 1 liner

[Jay Hannah <jay@jays.net>]

Can anyone tell me what the 1 liner for this is before Andy does?

:)

j


 my @old = @{$self->{pools}};
 my @new;
 foreach (@old) {
    if (@$_ > 0) {
       push @new, $_;
    }
 }
 $self->{pools} = \@new;