aplinfo: use fh for both digests

for consistency, because Digest::MD5 cannot handle filenames directly..
This commit is contained in:
Fabian Grünbichler 2016-08-24 12:27:41 +02:00 committed by Dietmar Maurer
parent 4661648a14
commit 79be6db38a

View File

@ -1114,17 +1114,17 @@ __PACKAGE__->register_method({
my $expected; my $expected;
eval { eval {
open(my $fh, '<', $filename) or die "Can't open '$filename': $!";
binmode($fh);
if ($expected = $template_info->{sha512sum}) { if ($expected = $template_info->{sha512sum}) {
$digest = Digest::SHA->new(512)->addfile($filename, "b")->hexdigest; $digest = Digest::SHA->new(512)->addfile($fh)->hexdigest;
} elsif ($expected = $template_info->{md5sum}) { } elsif ($expected = $template_info->{md5sum}) {
#fallback to MD5 #fallback to MD5
open (my $fh, '<', $filename) or die "Can't open '$filename': $!";
binmode ($fh);
$digest = Digest::MD5->new->addfile($fh)->hexdigest; $digest = Digest::MD5->new->addfile($fh)->hexdigest;
close($fh);
} else { } else {
die "no expected checksum defined"; die "no expected checksum defined";
} }
close($fh);
}; };
die "checking hash failed - $@\n" if $@ && !$noerr; die "checking hash failed - $@\n" if $@ && !$noerr;