hjp
/
simba
1
0
Fork 0
Code Issues 2 Pull Requests Releases Wiki Activity

replaced Digest::SHA1 with Digest::SHA.

This commit is contained in:
hjp 2012-09-20 10:47:19 +00:00
parent 440f4f67db
commit 069d20a488
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Simba/CA.pm
View File

@ -64,7 +64,7 @@ use IPC::Open2;
use POSIX qw(strftime); use POSIX qw(strftime);
use Simba::Util qw(quote unquote typestr); use Simba::Util qw(quote unquote typestr);
use Readonly; use Readonly;
use Digest::SHA1; use Digest::SHA;
use List::Util qw(min); use List::Util qw(min);
use IO::Handle; use IO::Handle;
use File::stat; use File::stat;
@ -741,7 +741,7 @@ sub store_file {
} }
my $size = $f2->{s}; my $size = $f2->{s};
my $err; my $err;
my $sha1 = Digest::SHA1->new; my $sha1 = Digest::SHA->new(1);
while ($size > 0) { while ($size > 0) {
my $buffer; my $buffer;

4
lib/Simba/DA.pm
View File

@ -6,7 +6,7 @@ use Encode qw(decode encode);
use File::Find; use File::Find;
use File::stat; use File::stat;
use Readonly; use Readonly;
use Digest::SHA1; use Digest::SHA;
use List::Util qw(min); use List::Util qw(min);
use IO::Handle; use IO::Handle;
use Simba::Util qw(quote unquote typestr); use Simba::Util qw(quote unquote typestr);
@ -186,7 +186,7 @@ sub get {
$fh_out->print("data $path ", $self->metastr($fn, $st), "\n"); $fh_out->print("data $path ", $self->metastr($fn, $st), "\n");
my $size = $st->size; my $size = $st->size;
my $err; my $err;
my $sha1 = Digest::SHA1->new; my $sha1 = Digest::SHA->new(1);
while ($size > 0) { while ($size > 0) {
my $buffer; my $buffer;