===================================================================
RCS file: /cvs/cvsweb/cvsweb.cgi,v
retrieving revision 4.11
retrieving revision 4.12
diff -u -p -r4.11 -r4.12
--- cvsweb/cvsweb.cgi	2019/11/10 14:39:55	4.11
+++ cvsweb/cvsweb.cgi	2019/11/10 14:55:42	4.12
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: cvsweb.cgi,v 4.11 2019/11/10 14:39:55 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.
@@ -4437,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;