| Subject: | $v might be undefined |
--- Spreadsheet/XLSX.pm 2015-10-31 03:33:19.000000000 +0100
+++ Spreadsheet/XLSX.pm 2016-05-20 16:28:34.612377628 +0200
@@ -111,7 +111,7 @@ sub _load_workbook {
} elsif (length($_) && $parsing_v_tag) {
my $v = $s ? $shared_info->{shared_strings}->[$_] : $_;
- if ($v eq "</c>") {
+ if (defined $v && $v eq "</c>") {
$v = "";
}
my $type = "Text";
@@ -134,7 +134,7 @@ sub _load_workbook {
$sheet->{MinRow} = $row if $sheet->{MinRow} > $row;
$sheet->{MinCol} = $col if $sheet->{MinCol} > $col;
- if ($v =~ /(.*)E\-(.*)/gsm && $type eq "Numeric") {
+ if (defined $v && $v =~ /(.*)E\-(.*)/gsm && $type eq "Numeric") {
$v = $1 / (10**$2); # this handles scientific notation for very small numbers
}