- another rsync bug fix
authorcbarratt <cbarratt>
Tue, 11 Feb 2003 08:10:29 +0000 (08:10 +0000)
committercbarratt <cbarratt>
Tue, 11 Feb 2003 08:10:29 +0000 (08:10 +0000)
lib/BackupPC/Xfer/Rsync.pm
lib/BackupPC/Xfer/RsyncFileIO.pm

index ee14c36..c98ac8a 100644 (file)
@@ -228,6 +228,7 @@ sub start
         # transferred, even though it is a full dump.
         #
        $rsyncArgs = $conf->{RsyncArgs};
+       $rsyncArgs = [@$rsyncArgs, @fileList] if ( @fileList );
         $rsyncArgs = [@$rsyncArgs, "--ignore-times"]
                                     if ( $t->{type} eq "full" );
        $rsyncClientCmd = $conf->{RsyncClientCmd};
index 10ee772..f75fbbb 100644 (file)
@@ -754,7 +754,7 @@ sub fileDeltaRxNext
        my $lastBlk = $fio->{rxMatchNext} - 1;
         $fio->log("$fio->{rxFile}{name}: writing blocks $fio->{rxMatchBlk}.."
                   . "$lastBlk")
-                        if ( $fio->{logLevel} >= 10 );
+                        if ( $fio->{logLevel} >= 9 );
         my $seekPosn = $fio->{rxMatchBlk} * $fio->{rxBlkSize};
         if ( defined($fio->{rxInFd}) && !seek($fio->{rxInFd}, $seekPosn, 0) ) {
             $fio->log("Unable to seek $attr->{fullPath} to $seekPosn");
@@ -772,6 +772,7 @@ sub fileDeltaRxNext
             }
             if ( defined($fio->{rxInData}) ) {
                 $data = substr($fio->{rxInData}, $seekPosn, $len);
+               $seekPosn += $len;
             } else {
                 if ( sysread($fio->{rxInFd}, $data, $len) != $len ) {
                     $fio->log("Unable to read $len bytes from"
@@ -799,7 +800,7 @@ sub fileDeltaRxNext
         #
         my $len = length($newData);
         $fio->log("$fio->{rxFile}{name}: writing $len bytes new data")
-                        if ( $fio->{logLevel} >= 10 );
+                        if ( $fio->{logLevel} >= 9 );
         $fio->{rxOutFd}->write(\$newData);
         $fio->{rxDigest}->add($newData);
        $fio->{rxSize} += length($newData);