From 44f6095337975eb5bc004a45e1147d0ba4652753 Mon Sep 17 00:00:00 2001
From: Stuart Watt <stuart@morungos.com>
Date: Tue, 1 Sep 2015 14:36:31 -0400
Subject: Don't parse sheets where there's no extracted file. See #38

See discussion at: https://github.com/doy/spreadsheet-parsexlsx/issues/38. The patch is a little different from the minimal one suggested initially, because we probably don't even want to return a sheet when we can't parse it.
---
 lib/Spreadsheet/ParseXLSX.pm | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

(limited to 'lib')

diff --git a/lib/Spreadsheet/ParseXLSX.pm b/lib/Spreadsheet/ParseXLSX.pm
index 1698acd..cb20013 100644
--- a/lib/Spreadsheet/ParseXLSX.pm
+++ b/lib/Spreadsheet/ParseXLSX.pm
@@ -110,13 +110,17 @@ sub _parse_workbook {
 
     my @sheets = map {
         my $idx = $_->att('r:id');
-        my $sheet = Spreadsheet::ParseExcel::Worksheet->new(
-            Name     => $_->att('name'),
-            _Book    => $workbook,
-            _SheetNo => $idx,
-        );
-        $self->_parse_sheet($sheet, $files->{sheets}{$idx});
-        $sheet
+        if ($files->{sheets}{$idx}) {
+          my $sheet = Spreadsheet::ParseExcel::Worksheet->new(
+              Name     => $_->att('name'),
+              _Book    => $workbook,
+              _SheetNo => $idx,
+          );
+          $self->_parse_sheet($sheet, $files->{sheets}{$idx});
+          ($sheet)
+        } else {
+          ()
+        }
     } $files->{workbook}->find_nodes('//sheets/sheet');
 
     $workbook->{Worksheet}  = \@sheets;
-- 
cgit v1.2.3-54-g00ecf