From 7883b9fc0e77dd15fb8588909707798a7d6fc792 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Wed, 5 Jun 2013 13:10:14 -0500 Subject: need to apply the column width to all specified columns --- lib/Spreadsheet/ParseXLSX.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/Spreadsheet/ParseXLSX.pm b/lib/Spreadsheet/ParseXLSX.pm index 71af8fe..320a7b8 100644 --- a/lib/Spreadsheet/ParseXLSX.pm +++ b/lib/Spreadsheet/ParseXLSX.pm @@ -159,7 +159,9 @@ sub _parse_sheet { my $default_column_width = $format->att('baseColWidth') || 10; for my $col ($sheet_xml->find_nodes('//col')) { - $column_widths[$col->att('min') - 1] = $col->att('width'); + my $width = $col->att('width'); + $column_widths[$_ - 1] = $width + for $col->att('min')..$col->att('max'); } for my $row ($sheet_xml->find_nodes('//row')) { -- cgit v1.2.3-54-g00ecf