diff options
Diffstat (limited to 'lib/Spreadsheet')
-rw-r--r-- | lib/Spreadsheet/ParseXLSX.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lib/Spreadsheet/ParseXLSX.pm b/lib/Spreadsheet/ParseXLSX.pm index 45c7250..72c8793 100644 --- a/lib/Spreadsheet/ParseXLSX.pm +++ b/lib/Spreadsheet/ParseXLSX.pm @@ -634,11 +634,9 @@ sub _extract_files { $self->_rels_for($wb_name) ); - my $strings_xml = eval { - $zip->memberNamed( $path_base - .( $wb_rels->find_nodes(qq<//Relationship[\@Type="$type_base/sharedStrings"]>) )[0]->att('Target') - )->contents; - }; + my ($strings_xml) = map { + $zip->memberNamed($path_base . $_->att('Target'))->contents + } $wb_rels->find_nodes(qq<//Relationship[\@Type="$type_base/sharedStrings"]>); my $styles_xml = $self->_parse_xml( $zip, |