[Nagiosplug-devel] bug? in perl Plugin::Range.pm

Norman J Harman Jr. njharman at knoggin.com
Thu Feb 8 08:32:31 CET 2007


$VERSION = "0.15";

I'm fairly certain that the first if/else in check_range should be swapped.

Correct code:

sub check_range {
...
   if ($self->end_infinity == 0 && $self->start_infinity == 0) {
     if ($self->start <= $value && $value <= $self->end) {
       return $true;
     } else {
       return $false;
...





More information about the Devel mailing list