perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Geoffrey Young <gyo...@laserlink.net>
Subject RE: Apache::MyConfig hooks list
Date Wed, 20 Dec 2000 13:32:32 GMT


> -----Original Message-----
> From: Doug MacEachern [mailto:dougm@covalent.net]
> Sent: Wednesday, December 20, 2000 1:52 AM
> To: Geoffrey Young
> Cc: dev@perl.apache.org
> Subject: Re: Apache::MyConfig hooks list
> 
> 
> On Tue, 10 Oct 2000, Geoffrey Young wrote:
> 
> > 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};
> 
> whoops, this doesn't apply ontop of randy's patch that's in 
> now.  i'd be
> happy to commit this in the morning if you want to make one 
> against cvs.
> thanks geoff.

this should work now - maybe Randy could check it just to make sure the
results are good on windows.  looks fine to me, though...

you want me to insert some pod for Apache::MyConfig here too?

--- Makefile.PL.old     Wed Dec 20 08:13:53 2000
+++ Makefile.PL Wed Dec 20 08:13:31 2000
@@ -1955,12 +1955,19 @@
 #
 # Configuration 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;
    $string
 );
 

> 

Mime
View raw message