summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/Spreadsheet/Template/Writer/Excel.pm2
-rw-r--r--t/basic.t2
2 files changed, 3 insertions, 1 deletions
diff --git a/lib/Spreadsheet/Template/Writer/Excel.pm b/lib/Spreadsheet/Template/Writer/Excel.pm
index 59c4553..c88bfa2 100644
--- a/lib/Spreadsheet/Template/Writer/Excel.pm
+++ b/lib/Spreadsheet/Template/Writer/Excel.pm
@@ -286,6 +286,8 @@ sub _color {
my $self = shift;
my ($color) = @_;
+ return 64 if !defined($color);
+
if (exists $self->_colors->{$color}) {
return $self->_colors->{$color};
}
diff --git a/t/basic.t b/t/basic.t
index d85ff06..d9ddfac 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -100,7 +100,7 @@ my $data;
ok($format->{Wrap});
is_deeply($format->{Fill}, [0, undef, undef]);
is_deeply($format->{BdrStyle}, [(1) x 4]);
- is_deeply($format->{BdrColor}, [('#000000') x 4]);
+ is_deeply($format->{BdrColor}, [(undef) x 4]);
is_deeply($format->{BdrDiag}, [0, 0, undef]);
my $font = $format->{Font};