httpd-test-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Doug MacEachern <do...@covalent.net>
Subject Re: cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfigPerl.pm
Date Sat, 15 Sep 2001 20:13:40 GMT
On Sun, 16 Sep 2001, Stas wrote:
 
> Hmm, we don't want to pass the package name to the package itself

why not?

> this fixes it, so we can write:
> 
>   sub APACHE_TEST_CONFIG {
>       my $self = shift;

this seems fine to me:
    my($class, $config) = @_;

> -            eval { $module->APACHE_TEST_CONFIGURE($self); };
> +            no strict 'refs';
> +            eval { "${module}::APACHE_TEST_CONFIGURE"->($self) };

this way passes use strict:

my $cv = \&{"${module}::APACHE_TEST_CONFIGURE"};
eval { $cv->($self) };

but i think the current way in cvs is correct.



Mime
View raw message