my ($self) = @_ ;
$self->add_part($self->{min_total},
- "other < $self->{min_percent}",
+ "other < $self->{min_percent}%",
$black) ;
}
{
my ($self, $label, $tips, $start_degrees, $end_degrees) = @_ ;
- if ($label =~ /^other </) {
+ if ($label =~ /^other .*</) {
if (!$self->{display_other}) {
return ;
}
next if ($level > $self->{max_label_level}) ;
- next if (!$self->{display_other} and $label =~ /^other </) ;
+ next if (!$self->{display_other} and $label =~ /^other .*</) ;
my $dx = ($x - $self->{center_x})*($last_level - $level) + $x ;
my $dy = ($y - $self->{center_y})*($last_level - $level) + $y ;