From: Martin Mares <mj@ucw.cz>
Date: Mon, 15 Aug 2011 08:27:54 +0000 (+0200)
Subject: UCW::CGI: Cosmetic changes in capitalization of HTTP headers
X-Git-Tag: v5.0~114
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=9f14dd026cffccd83c6087923be2c9760bb7a016;p=libucw.git

UCW::CGI: Cosmetic changes in capitalization of HTTP headers
---

diff --git a/ucw/perl/UCW/CGI.pm b/ucw/perl/UCW/CGI.pm
index 73238a5b..ff06a15a 100644
--- a/ucw/perl/UCW/CGI.pm
+++ b/ucw/perl/UCW/CGI.pm
@@ -32,7 +32,7 @@ sub report_bug($)
 		if (defined($UCW::CGI::error_hook)) {
 			&$UCW::CGI::error_hook($_[0]);
 		} else {
-			print "Content-type: text/plain\n\n";
+			print "Content-Type: text/plain\n\n";
 			print "Internal bug:\n";
 			print $_[0], "\n";
 			print "Please notify $UCW::CGI::error_mail\n" if defined $UCW::CGI::error_mail;
@@ -341,7 +341,7 @@ sub parse_multipart_form_data() {
 
 	# BUG: IE 3.01 on Macintosh forgets to add the "--" at the start of the boundary string
 	# as the MIME specs preach. Workaround borrowed from CGI.pm in Perl distribution.
-	my $agent = http_get("User-agent") || "";
+	my $agent = http_get("User-Agent") || "";
 	$boundary = "--$boundary" unless $agent =~ /MSIE\s+3\.0[12];\s*Mac/;
 	$boundary = "\r\n$boundary";
 	$boundary_len = length($boundary) + 2;