Author: gozer Date: Wed Dec 22 15:18:21 2004 New Revision: 123150 URL: http://svn.apache.org/viewcvs?view=rev&rev=123150 Log: $r->hostname is now writable
Modified: perl/modperl/trunk/Changes perl/modperl/trunk/t/response/TestAPI/request_rec.pm perl/modperl/trunk/xs/maps/apache_structures.map Modified: perl/modperl/trunk/Changes Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/Changes?view=diff&rev=123150&p1=perl/modperl/trunk/Changes&r1=123149&p2=perl/modperl/trunk/Changes&r2=123150 ============================================================================== --- perl/modperl/trunk/Changes (original) +++ perl/modperl/trunk/Changes Wed Dec 22 15:18:21 2004 @@ -12,6 +12,8 @@ =item 1.99_19-dev +$r->hostname is now writable [Gozer] + Static build with a Perl without ithreads and a non-threaded MPM would segfault on startup. Caused by a bug in perl's perl_shutdown() code. Fixed in Perl 5.8.2, so it's now a build requirement [Gozer] 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=123150&p1=perl/modperl/trunk/t/response/TestAPI/request_rec.pm&r1=123149&p2=perl/modperl/trunk/t/response/TestAPI/request_rec.pm&r2=123150 ============================================================================== --- perl/modperl/trunk/t/response/TestAPI/request_rec.pm (original) +++ perl/modperl/trunk/t/response/TestAPI/request_rec.pm Wed Dec 22 15:18:21 2004 @@ -23,7 +23,7 @@ sub handler { my $r = shift; - plan $r, tests => 52; + plan $r, tests => 53; #Apache->request($r); #PerlOptions +GlobalRequest takes care my $gr = Apache->request; @@ -60,6 +60,12 @@ ok t_cmp $r->proto_num, 1000, 't->proto_num'; ok t_cmp $r->hostname, $r->get_server_name, '$r->hostname'; + + { + my $old_hostname = $r->hostname("other.hostname"); + ok t_cmp $r->hostname, "other.hostname", '$r->hostname rw'; + $r->hostname($old_hostname); + } ok $r->request_time; Modified: perl/modperl/trunk/xs/maps/apache_structures.map Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/xs/maps/apache_structures.map?view=diff&rev=123150&p1=perl/modperl/trunk/xs/maps/apache_structures.map&r1=123149&p2=perl/modperl/trunk/xs/maps/apache_structures.map&r2=123150 ============================================================================== --- perl/modperl/trunk/xs/maps/apache_structures.map (original) +++ perl/modperl/trunk/xs/maps/apache_structures.map Wed Dec 22 15:18:21 2004 @@ -18,7 +18,7 @@ < header_only < protocol < proto_num -< hostname + hostname < request_time status_line status
