X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=bin%2FBackupPC_tarExtract;h=bdd506bead2e59ec64e856387899c9845e6f8efb;hb=e4a233559926fe41888b2f6c5cc716401b715162;hp=7f539154463b11c7b6bb2fddd1626837248bd1e6;hpb=0697368bbcef14908cd4684cf07744dc840464de;p=BackupPC.git

diff --git a/bin/BackupPC_tarExtract b/bin/BackupPC_tarExtract
index 7f53915..bdd506b 100755
--- a/bin/BackupPC_tarExtract
+++ b/bin/BackupPC_tarExtract
@@ -27,7 +27,7 @@
 #
 #========================================================================
 #
-# Version 2.0.0_CVS, released 18 Jan 2003.
+# Version 2.0.0beta2, released 13 Apr 2003.
 #
 # See http://backuppc.sourceforge.net.
 #
@@ -50,7 +50,7 @@ if ( @ARGV != 3 ) {
     print("usage: $0 <host> <shareName> <compressLevel>\n");
     exit(1);
 }
-if ( $ARGV[0] !~ /^([\w\.-\s]+)$/ ) {
+if ( $ARGV[0] !~ /^([\w\.\s-]+)$/ ) {
     print("$0: bad host name '$ARGV[0]'\n");
     exit(1);
 }
@@ -374,6 +374,7 @@ sub processClose
 mkpath("$OutDir/$ShareName", 0, 0777);
 open(NEW_FILES, ">>", "$TopDir/pc/$host/NewFileList")
                  || die("can't open $TopDir/pc/$host/NewFileList");
+binmode(STDIN);
 1 while ( TarReadFile(*STDIN) );
 1 while ( sysread(STDIN, my $discard, 1024) );