well, I did (very) little fooling around...
the small patch below allows you to do something like the following...
$ perl Makefile.PL PERL_FILE_API=1
and create a test:
use Apache::MyConfig;
die unless $Apache::MyConfig::Setup{PERL_FILE_API};
seems like a good place to start at least...
--Geoff
--- Makefile.PL.old Tue Oct 3 10:17:22 2000
+++ Makefile.PL Tue Oct 10 13:23:07 2000
@@ -1899,12 +1899,19 @@
#
# Configuartion for mod_perl and Apache::...
#
-package Apache::MyConfig ;
+package Apache::MyConfig;
%Setup = (
'Apache_Src' => \'$APACHE_SRC\',
'SSL_BASE' => \'$SSL_BASE\',
'APXS' => \'$WITH_APXS\',
+EOT
+
+ foreach my $key (sort @callback_hooks) {
+ print FH " \'$key\' => \'$callback_hooks{$key}\',\n";
+ }
+
+ print FH <<EOT;
);
1;
>
> I wasn't aware of Apache::MyConfig... we've talked before
> about being able
> to determine compiled in hooks without having to start a live
> server - are
> similar package variables a possible/good place to put stuff
> like this?
>
> --Geoff
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
> For additional commands, e-mail: dev-help@perl.apache.org
>
the small patch below allows you to do something like the following...
$ perl Makefile.PL PERL_FILE_API=1
and create a test:
use Apache::MyConfig;
die unless $Apache::MyConfig::Setup{PERL_FILE_API};
seems like a good place to start at least...
--Geoff
--- Makefile.PL.old Tue Oct 3 10:17:22 2000
+++ Makefile.PL Tue Oct 10 13:23:07 2000
@@ -1899,12 +1899,19 @@
#
# Configuartion for mod_perl and Apache::...
#
-package Apache::MyConfig ;
+package Apache::MyConfig;
%Setup = (
'Apache_Src' => \'$APACHE_SRC\',
'SSL_BASE' => \'$SSL_BASE\',
'APXS' => \'$WITH_APXS\',
+EOT
+
+ foreach my $key (sort @callback_hooks) {
+ print FH " \'$key\' => \'$callback_hooks{$key}\',\n";
+ }
+
+ print FH <<EOT;
);
1;
>
> I wasn't aware of Apache::MyConfig... we've talked before
> about being able
> to determine compiled in hooks without having to start a live
> server - are
> similar package variables a possible/good place to put stuff
> like this?
>
> --Geoff
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
> For additional commands, e-mail: dev-help@perl.apache.org
>