Permalink
Browse files

Fix issue which caused the track bgcolor property to be ignored in so…

…me cases
  • Loading branch information...
lstein committed May 25, 2011
1 parent 5f05ea6 commit 59fc9d5a9dc37a3eed4d7f087eda4b5d41b467ef
Showing with 3 additions and 1 deletion.
  1. +1 −0 Changes
  2. +2 −1 lib/Bio/Graphics/Glyph.pm
View
@@ -3,6 +3,7 @@ Revision history for Perl extension Bio::Graphics.
2.23
- Workaround a problem in BioPerl 1.069 which prevents FeatureFile from rendering
properly. Fixed in 1.06902 and higher.
+ - Fix issue which caused the track bgcolor property to be ignored in some cases.
2.22
- Changed package "Math" to "Bio::Graphics::Math" to avoid CPAN namespace
@@ -700,7 +700,8 @@ sub fillcolor {
# we also look for the "fillcolor" option for Ace::Graphics compatibility
sub bgcolor {
my $self = shift;
- my ($bgcolor) = $self->feature->get_tag_values('bgcolor') if $self->feature->has_tag('bgcolor');
+ my $bgcolor;
+ ($bgcolor) = $self->feature->get_tag_values('bgcolor') if $self->feature->has_tag('bgcolor');
$bgcolor ||= $self->option('bgcolor'); # Let feature attribute override color
my $index = defined $bgcolor ? $bgcolor : $self->option('fillcolor');
$index = 'white' unless defined $index;

0 comments on commit 59fc9d5

Please sign in to comment.