From 5339faa0bccf8a82d1e0eb806e81dc2175630fa8 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sun, 22 May 2016 06:54:03 -0400
Subject: patternType should default to 0 (vfilatov, #41)

---
 lib/Spreadsheet/ParseXLSX.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/Spreadsheet/ParseXLSX.pm b/lib/Spreadsheet/ParseXLSX.pm
index 2d46173..fda4742 100644
--- a/lib/Spreadsheet/ParseXLSX.pm
+++ b/lib/Spreadsheet/ParseXLSX.pm
@@ -645,8 +645,9 @@ sub _parse_styles {
     );
 
     my @fills = map {
+        my $pattern_type = $_->att('patternType');
         [
-            $fill{$_->att('patternType')},
+            ($pattern_type ? $fill{$pattern_type} : 0),
             $self->_color($workbook->{Color}, $_->first_child('s:fgColor'), 1),
             $self->_color($workbook->{Color}, $_->first_child('s:bgColor'), 1),
         ]
-- 
cgit v1.2.3-54-g00ecf