--- toast 2003/12/24 23:02:05 1.273 +++ toast 2003/12/28 07:16:52 1.274 @@ -4383,10 +4383,10 @@ local(*TAR2GZIP); my($pid) = open(TAR2GZIP, "|-"); defined($pid) || error("fork: $!"); - binmode(TAR2GZIP) || error("binmode: $!"); # perl 5.8.0 utf8 bug if($pid) { my($contents) = join('', (<STDIN>)); + binmode(TAR2GZIP) || error("binmode: $!"); # perl 5.8.0 utf8 bug print TAR2GZIP tar("$namever/"), tar("$namever/$myname*", $contents),