--- 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),