return undef to mean 'the default color' (#15)

2 files changed, 4 insertions, 6 deletions

diff --git a/lib/Spreadsheet/ParseXLSX.pm b/lib/Spreadsheet/ParseXLSX.pm
index 72d8a58..9a41518 100644
--- a/lib/Spreadsheet/ParseXLSX.pm
+++ b/lib/Spreadsheet/ParseXLSX.pm
@@ -673,11 +673,9 @@ sub _color {
     my $self = shift;
     my ($colors, $color_node) = @_;
 
-    my $color; # XXX
-    if ($color_node) {
-        $color = '#000000' # XXX
-            if $color_node->att('auto');
-        $color = '#' . Spreadsheet::ParseExcel->ColorIdxToRGB( # XXX
+    my $color;
+    if ($color_node && !$color_node->att('auto')) {
+        $color = '#' . Spreadsheet::ParseExcel->ColorIdxToRGB(
             $color_node->att('indexed')
         ) if defined $color_node->att('indexed');
         $color = '#' . substr($color_node->att('rgb'), 2, 6)
diff --git a/t/basic.t b/t/basic.t
index f574996..dde23e6 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -85,7 +85,7 @@ for my $file ($filename, do { open my $fh, '<', $filename or die; $fh }) {
         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};