diff options
| author | Jesse Luehrs <doy@tozt.net> | 2016-05-22 03:15:48 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2016-05-22 03:18:34 -0400 |
| commit | 5af52b992a3ea7298f302814a332609da3bf8125 (patch) | |
| tree | c6bf77ee4535c1c6a1e9289ca1caa9429a46f6a0 /lib/Spreadsheet/ParseXLSX | |
| parent | 19c787c43a7559189c12b89bfe4523e012a6ec1d (diff) | |
| download | spreadsheet-parsexlsx-5af52b992a3ea7298f302814a332609da3bf8125.tar.gz spreadsheet-parsexlsx-5af52b992a3ea7298f302814a332609da3bf8125.zip | |
better error message when loading xls files (#52)
encrypted xlsx files use the same file container format as xls files,
and so our simple heuristic here will identify xls files as encrypted
xlsx files - we should bail out if we can't find encrypted data instead
Diffstat (limited to 'lib/Spreadsheet/ParseXLSX')
| -rw-r--r-- | lib/Spreadsheet/ParseXLSX/Decryptor.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Spreadsheet/ParseXLSX/Decryptor.pm b/lib/Spreadsheet/ParseXLSX/Decryptor.pm index 660a544..7870685 100644 --- a/lib/Spreadsheet/ParseXLSX/Decryptor.pm +++ b/lib/Spreadsheet/ParseXLSX/Decryptor.pm @@ -25,6 +25,8 @@ sub open { ['EncryptionInfo', 'EncryptedPackage'] ); + return unless $infoFH; + my $buffer; $infoFH->read($buffer, 8); my ($majorVers, $minorVers) = unpack('SS', $buffer); |