Re: <perl>do "file" -- FIXED!

[w trillich <will@pinncomp.net>]

Doug MacEachern wrote:
> 
> this is either something 5.6.0 broke, or nobody has been using
> Apache->httpd_conf, patch below fixes.

thank you! piece-o-cake... all is sunshine and sparkles, now!

thanks!

> Index: Apache/Apache.pm
> ===================================================================
> RCS file: /home/cvs/modperl/Apache/Apache.pm,v
> retrieving revision 1.46
> diff -u -r1.46 Apache.pm
> --- Apache/Apache.pm    2000/04/05 04:55:55     1.46
> +++ Apache/Apache.pm    2000/04/26 01:06:28
> @@ -24,16 +24,14 @@
>      __PACKAGE__->mod_perl::boot($VERSION);
>  }
> 
> -if($ENV{MOD_PERL} && perl_hook("Sections")) {
> +BEGIN {
>      *Apache::ReadConfig:: = \%ApacheReadConfig::;
> +}
> 
> -    if(Apache::Constants::MODULE_MAGIC_NUMBER() >= 19971026) {
> -       *Apache::httpd_conf = sub {
> -           shift;
> -           push @Apache::ReadConfig::PerlConfig,
> -           map "$_\n", @_;
> -       };
> -    }
> +sub httpd_conf {
> +    shift;
> +    push @Apache::ReadConfig::PerlConfig,
> +      map "$_\n", @_;
>  }
> 
>  sub parse_args {