projects
/
BackupPC.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Changes for 2.1.3:
[BackupPC.git]
/
bin
/
BackupPC_compressPool
diff --git
a/bin/BackupPC_compressPool
b/bin/BackupPC_compressPool
index
07f8661
..
acf3604
100755
(executable)
--- a/
bin/BackupPC_compressPool
+++ b/
bin/BackupPC_compressPool
@@
-1,4
+1,4
@@
-#!/bin/perl
-T
+#!/bin/perl
#============================================================= -*-perl-*-
#
# BackupPC_compressPool: Compress existing pool
#============================================================= -*-perl-*-
#
# BackupPC_compressPool: Compress existing pool
@@
-31,7
+31,7
@@
# Craig Barratt <cbarratt@users.sourceforge.net>
#
# COPYRIGHT
# Craig Barratt <cbarratt@users.sourceforge.net>
#
# COPYRIGHT
-# Copyright (C) 2001 Craig Barratt
+# Copyright (C) 2001
-2003
Craig Barratt
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@@
-49,19
+49,20
@@
#
#========================================================================
#
#
#========================================================================
#
-# Version 2.
0.0_CVS, released 18 Jan 2003
.
+# Version 2.
1.3, released 21 Jan 2007
.
#
# See http://backuppc.sourceforge.net.
#
#========================================================================
use strict;
#
# See http://backuppc.sourceforge.net.
#
#========================================================================
use strict;
+no utf8;
use File::Find;
use File::Path;
use Compress::Zlib;
use Getopt::Std;
use File::Find;
use File::Path;
use Compress::Zlib;
use Getopt::Std;
-use lib "/usr/local/BackupPC/lib";
+use lib "/usr/local/BackupPC
2.1.0
/lib";
use BackupPC::Lib;
use BackupPC::FileZIO;
use BackupPC::Lib;
use BackupPC::FileZIO;
@@
-178,6
+179,7
@@
sub doCompress
$Errors++;
return;
}
$Errors++;
return;
}
+ binmode(FH);
while ( sysread(FH, $dataIn, $CompMaxWrite) > 0 ) {
$flush = 0;
$FileOrigSz += length($dataIn);
while ( sysread(FH, $dataIn, $CompMaxWrite) > 0 ) {
$flush = 0;
$FileOrigSz += length($dataIn);
@@
-202,6
+204,7
@@
sub doCompress
close(FH);
return;
}
close(FH);
return;
}
+ binmode(OUT);
$copy = 1;
}
if ( $copy && $dataOut ne "" ) {
$copy = 1;
}
if ( $copy && $dataOut ne "" ) {
@@
-244,6
+247,7
@@
sub doCompress
unlink("$file.__z");
return;
}
unlink("$file.__z");
return;
}
+ binmode(FH);
}
if ( $copy ) {
if ( !sysseek(OUT, 0, 0) ) {
}
if ( $copy ) {
if ( !sysseek(OUT, 0, 0) ) {
@@
-329,6
+333,7
@@
sub checkRead
$f->close();
return;
}
$f->close();
return;
}
+ binmode(FH);
#print("comparing $file to $cfile\n");
while ( 1 ) {
$n = 1 + int(rand($CompMaxRead) + rand(100));
#print("comparing $file to $cfile\n");
while ( 1 ) {
$n = 1 + int(rand($CompMaxRead) + rand(100));
@@
-363,6
+368,7
@@
sub checkReadLine
$f->close();
return;
}
$f->close();
return;
}
+ binmode(FH);
while ( 1 ) {
$d0 = <FH>;
$d = $f->readLine();
while ( 1 ) {
$d0 = <FH>;
$d = $f->readLine();