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");

Reply via email to