You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@hyperreal.org on 1998/09/02 19:47:30 UTC
cvs commit: modperl/lib/Apache PerlRun.pm
dougm 98/09/02 10:47:30
Modified: . Changes
lib/Apache PerlRun.pm
Log:
fix $...NameWithVirtualHost defaulting in Apache::PerlRun
["Ryan A. Whelan" <rw...@2rad.net>
Revision Changes Path
1.129 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /export/home/cvs/modperl/Changes,v
retrieving revision 1.128
retrieving revision 1.129
diff -u -r1.128 -r1.129
--- Changes 1998/09/01 20:03:33 1.128
+++ Changes 1998/09/02 17:47:29 1.129
@@ -8,6 +8,9 @@
=item 1.15_01-dev
+fix $...NameWithVirtualHost defaulting in Apache::PerlRun
+["Ryan A. Whelan" <rw...@2rad.net>
+
r->as_string now uses table_do() and moved to xs
use 1.3.2-dev+'s ap_custom_response() when possible
1.5 +1 -1 modperl/lib/Apache/PerlRun.pm
Index: PerlRun.pm
===================================================================
RCS file: /export/home/cvs/modperl/lib/Apache/PerlRun.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- PerlRun.pm 1998/08/31 20:04:32 1.4
+++ PerlRun.pm 1998/09/02 17:47:30 1.5
@@ -4,7 +4,7 @@
use vars qw($Debug);
use Apache::Constants qw(:common OPT_EXECCGI);
-unless ($Apache::Registry::{NameWithVirtualHost}) {
+unless (defined $Apache::Registry::NameWithVirtualHost) {
$Apache::Registry::NameWithVirtualHost = 1;
}