diff options
author | unknown <robert.boisvert@PABET-J069H12.sncrcorp.net> | 2014-10-16 14:56:04 -0400 |
---|---|---|
committer | unknown <robert.boisvert@PABET-J069H12.sncrcorp.net> | 2014-10-16 14:56:04 -0400 |
commit | f0e814f4120bde95fe38e271114c49b07ae10b2e (patch) | |
tree | 6f95ddf3da70c02b2495f32253828152a2d269f8 | |
parent | 9615cc04a2c9d8fc40d04ecade75b23ec2f05d19 (diff) | |
download | spreadsheet-parsexlsx-f0e814f4120bde95fe38e271114c49b07ae10b2e.tar.gz spreadsheet-parsexlsx-f0e814f4120bde95fe38e271114c49b07ae10b2e.zip |
Fixed bug when last column shorter than normal
-rw-r--r-- | lib/Spreadsheet/ParseXLSX.pm | 8 |
1 files 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') { |