X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=lib%2FBackupPC%2FXfer%2FRsyncDigest.pm;h=b2d5f5000f2e7e2d58d8a03957b2ff268918076f;hp=8846340da6039a1f4d94c8bae29c62663662b5f5;hb=31a7aca27ffd75e0aee9836704599cdb95dc2421;hpb=4cdaa6b8a9f5161ee2da4371d68cbbad41248ea0 diff --git a/lib/BackupPC/Xfer/RsyncDigest.pm b/lib/BackupPC/Xfer/RsyncDigest.pm index 8846340..b2d5f50 100644 --- a/lib/BackupPC/Xfer/RsyncDigest.pm +++ b/lib/BackupPC/Xfer/RsyncDigest.pm @@ -29,7 +29,7 @@ # #======================================================================== # -# Version 3.0.0beta0, released 11 Jul 2006. +# Version 3.0.0beta2, released 11 Nov 2006. # # See http://backuppc.sourceforge.net. # @@ -244,7 +244,7 @@ sub digestAdd sub digestStart { my($class, $fileName, $fileSize, $blockSize, $defBlkSize, - $checksumSeed, $needMD4, $compress, $doCache) = @_; + $checksumSeed, $needMD4, $compress, $doCache, $protocol_version) = @_; return -1 if ( !$RsyncLibOK ); @@ -256,6 +256,8 @@ sub digestStart digest => File::RsyncP::Digest->new, }, $class; + $dg->{digest}->protocol($protocol_version); + if ( $fileSize > 0 && $compress && $doCache >= 0 ) { open(my $fh, "<", $fileName) || return -2; binmode($fh);