perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From go...@apache.org
Subject svn commit: r123150 - /perl/modperl/trunk/Changes /perl/modperl/trunk/t/response/TestAPI/request_rec.pm /perl/modperl/trunk/xs/maps/apache_structures.map
Date Wed, 22 Dec 2004 23:18:23 GMT
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

Mime
View raw message