At 03:01 PM 12/18/02 -0800, Bill Moseley wrote: >I want to test for -D in a <perl> section.
Doh!, my test was causing the problem, not the fetching of the define!
<perl>
use Apache();
my $msg = Apache->define('TEST') ? "Testing" : "Not testing";
push @{ $Location{"/"}->{PerlSetVar} }, ['Testing', $msg];
</perl>
This works better:
my $msg = Apache->define('TEST') ? "Testing" : "Not_testing";
--
Bill Moseley
mailto:[EMAIL PROTECTED]
