Author: stas Date: Mon Jan 10 13:38:31 2005 New Revision: 124832 URL: http://svn.apache.org/viewcvs?view=rev&rev=124832 Log: some hostnames are set to upcase
Modified: perl/modperl/trunk/t/response/TestAPI/request_rec.pm Modified: perl/modperl/trunk/t/response/TestAPI/request_rec.pm Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestAPI/request_rec.pm?view=diff&rev=124832&p1=perl/modperl/trunk/t/response/TestAPI/request_rec.pm&r1=124831&p2=perl/modperl/trunk/t/response/TestAPI/request_rec.pm&r2=124832 ============================================================================== --- perl/modperl/trunk/t/response/TestAPI/request_rec.pm (original) +++ perl/modperl/trunk/t/response/TestAPI/request_rec.pm Mon Jan 10 13:38:31 2005 @@ -60,7 +60,7 @@ # HTTP 1.0 ok t_cmp $r->proto_num, 1000, 't->proto_num'; - ok t_cmp $r->hostname, $r->get_server_name, '$r->hostname'; + ok t_cmp lc($r->hostname), lc($r->get_server_name), '$r->hostname'; { my $old_hostname = $r->hostname("other.hostname");