• Common.pm

    384 385  
    58 58 } elsif ( $value eq 'positive' || $value eq 'negative' || $value eq 'natural' ) {
    59 59 $mode = $value eq 'positive' ? '>' : $value eq 'negative' ? '<' : '>=';
    60 60 return "$field $mode 0", [];
    61 } elsif ( $value =~ /^[0-9 ,]+$/ ) {
    61 } elsif ( $value =~ /^[0-9 ,\-]+$/ ) {
    62 62 my @values = split(/\s*,\s*/, $value);
    63 63 my $values_string = '?, 'x(scalar (@values)-1).'?';
    64 64 return " ($field $mode ($values_string)) ", \@values;