diff options
author | Alexey Mazurin <mazurin.alexey@gmail.com> | 2015-03-19 11:16:18 +0400 |
---|---|---|
committer | Alexey Mazurin <mazurin.alexey@gmail.com> | 2015-03-19 11:16:18 +0400 |
commit | a2104941f31a97bd3661b930dc135d2b019e4725 (patch) | |
tree | 1d3f1387e51881bfc845b9f3930b4e4fccf815dc /lib | |
parent | f1ea9d08ca15e498697dd8d28e11f555bcd5e19c (diff) | |
download | spreadsheet-parsexlsx-a2104941f31a97bd3661b930dc135d2b019e4725.tar.gz spreadsheet-parsexlsx-a2104941f31a97bd3661b930dc135d2b019e4725.zip |
Removed tabs and extra spaces in ParseXLSX.pm
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Spreadsheet/ParseXLSX.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/Spreadsheet/ParseXLSX.pm b/lib/Spreadsheet/ParseXLSX.pm index a3c2c74..dca3c7c 100644 --- a/lib/Spreadsheet/ParseXLSX.pm +++ b/lib/Spreadsheet/ParseXLSX.pm @@ -970,7 +970,7 @@ sub open { } $infoFH->close(); }; - unlink $infoFile, $packageFile; + unlink $infoFile, $packageFile; die $@ if $@; return $xlsx; @@ -1133,7 +1133,7 @@ sub agileDecryption { sub new { my $class = shift; my $self = shift; - + $self->{keyLength} = $self->{keyBits} / 8; if ($self->{hashAlgorithm} eq 'SHA512') { @@ -1250,10 +1250,10 @@ sub verifyPassword { my ($encryptedVerifier, $encryptedVerifierHash) = @_; - my $encryptedVerifierHash0 = $self->{hashProc}->($self->decrypt($encryptedVerifier, "\xfe\xa7\xd2\x76\x3b\x4b\x9e\x79")); - $encryptedVerifierHash = $self->decrypt($encryptedVerifierHash, "\xd7\xaa\x0f\x6d\x30\x61\x34\x4e"); + my $encryptedVerifierHash0 = $self->{hashProc}->($self->decrypt($encryptedVerifier, "\xfe\xa7\xd2\x76\x3b\x4b\x9e\x79")); + $encryptedVerifierHash = $self->decrypt($encryptedVerifierHash, "\xd7\xaa\x0f\x6d\x30\x61\x34\x4e"); - die "Wrong password: $self" unless ($encryptedVerifierHash0 eq $encryptedVerifierHash); + die "Wrong password: $self" unless ($encryptedVerifierHash0 eq $encryptedVerifierHash); } package Spreadsheet::ParseXLSX::decryptor::Standard; @@ -1340,7 +1340,7 @@ sub verifyPassword { my $verifierHash0 = $self->{hashProc}->($verifier); - die "Wrong password: $self" unless ($verifierHash0 eq substr($verifierHash, 0, length($verifierHash0))); + die "Wrong password: $self" unless ($verifierHash0 eq substr($verifierHash, 0, length($verifierHash0))); } =head1 INCOMPATIBILITIES |