* Commit for 2.1.0.

[BackupPC.git] / lib / BackupPC / Xfer / RsyncDigest.pm

diff --git a/lib/BackupPC/Xfer/RsyncDigest.pm b/lib/BackupPC/Xfer/RsyncDigest.pm
index fcb1bc0..b41aec4 100644 (file)
--- a/lib/BackupPC/Xfer/RsyncDigest.pm
+++ b/lib/BackupPC/Xfer/RsyncDigest.pm
@@ -29,7 +29,7 @@
 #
 #========================================================================
 #
-# Version 2.1.0beta2, released 23 May 2004.
+# Version 2.1.0, released 20 Jun 2004.
 #
 # See http://backuppc.sourceforge.net.
 #
@@ -150,7 +150,7 @@ sub digestAdd
         $digest->add($data);
     }
     $fileDigest = $digest->digest2;
-    my $eofPosn = tell($fh->{fh});
+    my $eofPosn = sysseek($fh->{fh}, 0, 1);
     $fh->close;
     my $rsyncData = $blockDigest . $fileDigest;
     my $metaData  = pack("VVVV", $blockSize,
@@ -199,14 +199,14 @@ sub digestAdd
         # match our expected length.
         #
         return -111 if ( !defined(sysseek($fh2, 0, 2)) );
-        if ( tell($fh2) != $eofPosn + length($data2) ) {
+        if ( sysseek($fh2, 0, 1) != $eofPosn + length($data2) ) {
             if ( !truncate($fh2, $eofPosn + length($data2)) ) {
                 &$Log(sprintf("digestAdd: $file truncate from %d to %d failed",
-                                tell($fh2), $eofPosn + length($data2)));
+                                sysseek($fh2, 0, 1), $eofPosn + length($data2)));
                 return -112;
             } else {
                 &$Log(sprintf("digestAdd: $file truncated from %d to %d",
-                                tell($fh2), $eofPosn + length($data2)));
+                                sysseek($fh2, 0, 1), $eofPosn + length($data2)));
             }
         }
     }