diff options
-rw-r--r-- | lib/Spreadsheet/ParseXLSX.pm | 4 | ||||
-rw-r--r-- | t/bug-5.t | 11 | ||||
-rw-r--r-- | t/data/bug-5.xlsx | bin | 0 -> 13815 bytes |
3 files changed, 13 insertions, 2 deletions
diff --git a/lib/Spreadsheet/ParseXLSX.pm b/lib/Spreadsheet/ParseXLSX.pm index fa26e42..8159fa8 100644 --- a/lib/Spreadsheet/ParseXLSX.pm +++ b/lib/Spreadsheet/ParseXLSX.pm @@ -392,7 +392,7 @@ sub _parse_styles { 49 => '@', (map { $_->att('numFmtId') => $_->att('formatCode') - } $styles->find_nodes('//numFmt')), + } $styles->find_nodes('//numFmts/numFmt')), ); my @font = map { @@ -419,7 +419,7 @@ sub _parse_styles { # Underline => $bUnderline, # Strikeout => $bStrikeout, ) - } $styles->find_nodes('//font'); + } $styles->find_nodes('//fonts/font'); my @format = map { my $alignment = $_->first_child('alignment'); diff --git a/t/bug-5.t b/t/bug-5.t new file mode 100644 index 0000000..495582a --- /dev/null +++ b/t/bug-5.t @@ -0,0 +1,11 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use Spreadsheet::ParseXLSX; + +my $wb = Spreadsheet::ParseXLSX->new->parse('t/data/bug-5.xlsx'); +is($wb->worksheet_count, 1); + +done_testing; diff --git a/t/data/bug-5.xlsx b/t/data/bug-5.xlsx Binary files differnew file mode 100644 index 0000000..b5ca8c2 --- /dev/null +++ b/t/data/bug-5.xlsx |