X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=bin%2FBackupPC_dump;h=79393bf422c043b9e474602bb4d405e51b69eec6;hp=928dc508c4a6dea3defeeb4972aa4c5b25db87fa;hb=329e870f56fb6572fa697998d33676588034c149;hpb=74dc9d456332757127d5eda4ce32f29377133fa2

diff --git a/bin/BackupPC_dump b/bin/BackupPC_dump
index 928dc50..79393bf 100755
--- a/bin/BackupPC_dump
+++ b/bin/BackupPC_dump
@@ -52,7 +52,7 @@
 #   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
@@ -70,13 +70,14 @@
 #
 #========================================================================
 #
-# Version 2.0.0beta3, released 1 Jun 2003.
+# Version 2.1.0_CVS, released 3 Jul 2003.
 #
 # See http://backuppc.sourceforge.net.
 #
 #========================================================================
 
 use strict;
+no  utf8;
 use lib "/usr/local/BackupPC/lib";
 use BackupPC::Lib;
 use BackupPC::FileZIO;
@@ -476,6 +477,7 @@ for my $shareName ( @$ShareNames ) {
 	    close(WH);
 	    last;
 	}
+	binmode(TAR);
 	if ( !$tarPid ) {
 	    #
 	    # This is the tar child.  Close the write end of the pipe,
@@ -502,6 +504,7 @@ for my $shareName ( @$ShareNames ) {
 	open(NEW_FILES, ">", "$TopDir/pc/$client/NewFileList")
 		     || die("can't open $TopDir/pc/$client/NewFileList");
 	$newFilesFH = *NEW_FILES;
+	binmode(NEW_FILES);
     }
 
     #
@@ -993,7 +996,7 @@ sub UserCommandRun
         LOG        => *LOG,
         XferLOG    => $XferLOG,
         stat       => \%stat,
-        xferOK     => $stat{xferOK},
+        xferOK     => $stat{xferOK} || 0,
 	type	   => $type,
     };
     my $cmd = $bpc->cmdVarSubstitute($Conf{$type}, $vars);