passing -D values?

[Geoffrey Young]

is there really no way to pass additional -D switches to the server?  I
can't see any, so unless I'm missing it...

--Geoff

Index: lib/Apache/TestConfig.pm
===================================================================
RCS file: 
/home/cvspublic/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm,v
retrieving revision 1.208
diff -u -r1.208 TestConfig.pm
--- lib/Apache/TestConfig.pm    19 Feb 2004 06:36:34 -0000      1.208
+++ lib/Apache/TestConfig.pm    20 Feb 2004 18:28:26 -0000
@@ -64,6 +64,7 @@
    sslca           => 'location of SSL CA (default is $t_conf/ssl/ca)',
    sslcaorg        => 'SSL CA organization to use for tests (default is asf)',
    libmodperl      => 'path to mod_perl\'s .so (full or relative to 
LIBEXECDIR)',
+   defines         => 'values to use for -D defines (for example, "VAR1 
VAR2")',
    (map { $_ . '_module_name', "$_ module name"} qw(cgi ssl thread access 
auth)),
 );
 
@@ -254,6 +255,7 @@
     $vars->{maxclients}   ||= 1;
     $vars->{proxy}        ||= 'off';
     $vars->{proxyssl_url} ||= '';
+    $self->{defines}      ||= '';
 
     $self->configure_apxs;
     $self->configure_httpd;
Index: lib/Apache/TestServer.pm
===================================================================
RCS file: 
/home/cvspublic/httpd-test/perl-framework/Apache-Test/lib/Apache/TestServer.pm,v
retrieving revision 1.74
diff -u -r1.74 TestServer.pm
--- lib/Apache/TestServer.pm    30 Nov 2003 21:29:49 -0000      1.74
+++ lib/Apache/TestServer.pm    20 Feb 2004 18:28:26 -0000
@@ -88,6 +88,8 @@
         push @defines, "-DPERL_\U$item";
     }
 
+    push @defines, map { "-D$_" } split " ", 
shift->{config}->{vars}->{defines};
+
     "@defines";
 }