From a2104941f31a97bd3661b930dc135d2b019e4725 Mon Sep 17 00:00:00 2001 From: Alexey Mazurin Date: Thu, 19 Mar 2015 11:16:18 +0400 Subject: Removed tabs and extra spaces in ParseXLSX.pm --- lib/Spreadsheet/ParseXLSX.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'lib') 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 -- cgit v1.2.3-54-g00ecf