X-Git-Url: http://git.rot13.org//?a=blobdiff_plain;f=bin%2FBackupPC_tarExtract;h=6f0251a4a6deb0cfb13bde609de10e228b99229b;hb=8d7768574bb328c669a44c6efbff01e8a7e93d7e;hp=fc5dfa54fce7af3210657fd8545930f84693e832;hpb=8a5f496e93ee77491746cb72ef9949ab91c82dae;p=BackupPC.git

diff --git a/bin/BackupPC_tarExtract b/bin/BackupPC_tarExtract
index fc5dfa5..6f0251a 100755
--- a/bin/BackupPC_tarExtract
+++ b/bin/BackupPC_tarExtract
@@ -27,13 +27,14 @@
 #
 #========================================================================
 #
-# Version 2.0.0_CVS, released 18 Jan 2003.
+# Version 2.0.0, released 14 Jun 2003.
 #
 # See http://backuppc.sourceforge.net.
 #
 #========================================================================
 
 use strict;
+no  utf8;
 use lib "/usr/local/BackupPC/lib";
 use BackupPC::Lib;
 use BackupPC::Attrib qw(:all);
@@ -374,6 +375,8 @@ sub processClose
 mkpath("$OutDir/$ShareName", 0, 0777);
 open(NEW_FILES, ">>", "$TopDir/pc/$host/NewFileList")
                  || die("can't open $TopDir/pc/$host/NewFileList");
+binmode(NEW_FILES);
+binmode(STDIN);
 1 while ( TarReadFile(*STDIN) );
 1 while ( sysread(STDIN, my $discard, 1024) );