projects
/
BackupPC.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* Commit for 2.1.0.
[BackupPC.git]
/
lib
/
BackupPC
/
PoolWrite.pm
diff --git
a/lib/BackupPC/PoolWrite.pm
b/lib/BackupPC/PoolWrite.pm
index
01d89a7
..
d0be0e6
100644
(file)
--- a/
lib/BackupPC/PoolWrite.pm
+++ b/
lib/BackupPC/PoolWrite.pm
@@
-56,7
+56,7
@@
#
#========================================================================
#
#
#========================================================================
#
-# Version 2.1.0
_CVS, released 8 Feb
2004.
+# Version 2.1.0
, released 20 Jun
2004.
#
# See http://backuppc.sourceforge.net.
#
#
# See http://backuppc.sourceforge.net.
#
@@
-98,8
+98,8
@@
sub new
return $self;
}
return $self;
}
-my $BufSize = 1048576;
# 1MB or 2^20
-my $MaxFiles = 20;
+my $BufSize = 1048576; # 1MB or 2^20
+my $MaxFiles = 20;
# max number of compare files open at one time
sub write
{
sub write
{
@@
-119,6
+119,8
@@
sub write
#
if ( !defined($dataRef) && !defined($a->{digest})
&& $a->{fileSize} != length($a->{data}) ) {
#
if ( !defined($dataRef) && !defined($a->{digest})
&& $a->{fileSize} != length($a->{data}) ) {
+ #my $newSize = length($a->{data});
+ #print("Fixing file size from $a->{fileSize} to $newSize\n");
$a->{fileSize} = length($a->{data});
}
$a->{fileSize} = length($a->{data});
}
@@
-310,6
+312,7
@@
sub write
push(@{$a->{errors}}, "Can't rename $a->{fileName} -> $fileName"
. " or open during size fixup\n");
}
push(@{$a->{errors}}, "Can't rename $a->{fileName} -> $fileName"
. " or open during size fixup\n");
}
+ #print("Using temporary name $fileName\n");
} elsif ( defined($a->{files}) && defined($a->{files}[0]) ) {
#
# We haven't written anything yet, so just use the
} elsif ( defined($a->{files}) && defined($a->{files}[0]) ) {
#
# We haven't written anything yet, so just use the
@@
-317,6
+320,7
@@
sub write
#
$fh = $a->{files}[0]->{fh};
$fh->rewind;
#
$fh = $a->{files}[0]->{fh};
$fh->rewind;
+ #print("Using compare file $a->{files}[0]->{name}\n");
}
if ( defined($fh) ) {
my $poolWrite = BackupPC::PoolWrite->new($a->{bpc}, $a->{fileName},
}
if ( defined($fh) ) {
my $poolWrite = BackupPC::PoolWrite->new($a->{bpc}, $a->{fileName},