From f0e814f4120bde95fe38e271114c49b07ae10b2e Mon Sep 17 00:00:00 2001
From: unknown <robert.boisvert@PABET-J069H12.sncrcorp.net>
Date: Thu, 16 Oct 2014 14:56:04 -0400
Subject: Fixed bug when last column shorter than normal

---
 lib/Spreadsheet/ParseXLSX.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lib/Spreadsheet/ParseXLSX.pm b/lib/Spreadsheet/ParseXLSX.pm
index cec1c8c..615835e 100644
--- a/lib/Spreadsheet/ParseXLSX.pm
+++ b/lib/Spreadsheet/ParseXLSX.pm
@@ -255,8 +255,12 @@ sub _parse_sheet {
 
                 for my $cell ( $row_elt->children('c') ){
                     my ($row, $col) = $self->_cell_to_row_col($cell->att('r'));
-                    $sheet->{MaxRow} = $row;
-                    $sheet->{MaxCol} = $col;
+                    if ($sheet->{MaxRow} < $row) {
+                      $sheet->{MaxRow} = $row;
+                    }
+                    if ($sheet->{MaxCol} < $col) {
+                      $sheet->{MaxCol} = $col;
+                    }
                     my $type = $cell->att('t') || 'n';
                     my $val_xml;
                     if ($type ne 'inlineStr') {
-- 
cgit v1.2.3-54-g00ecf