===================================================================
RCS file: /cvs/cvsweb/cvsweb.cgi,v
retrieving revision 4.10
retrieving revision 4.12
diff -u -p -r4.10 -r4.12
--- cvsweb/cvsweb.cgi	2019/11/09 10:18:09	4.10
+++ cvsweb/cvsweb.cgi	2019/11/10 14:55:42	4.12
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: cvsweb.cgi,v 4.10 2019/11/09 10:18:09 schwarze Exp $
+# $Id: cvsweb.cgi,v 4.12 2019/11/10 14:55:42 schwarze Exp $
 # $knu: cvsweb.cgi,v 1.299 2010/11/13 16:37:18 simon
 #
 # cvsweb - a CGI interface to CVS trees.
@@ -765,6 +765,7 @@ if ($input{tarball}) {
   }
 
   # Clean up.
+  chdir("..");
   rmtree($tmpexportdir);
 
   &fatal(@fatal) if @fatal;
@@ -4436,7 +4437,7 @@ sub TIEHANDLE
               crc    => 0,
               len    => 0,
             };
-  my ($header) = pack("c10",
+  my ($header) = pack("C10",
                       MAGIC1, MAGIC2, Compress::Zlib::Z_DEFLATED(),
                       0, 0, 0, 0, 0, 0, OSCODE);
   print {$o->{handle}} $header;