[EMAIL PROTECTED] wrote:
dougm 01/09/15 12:29:30
Modified: perl-framework/Apache-Test/lib/Apache TestConfigPerl.pm Log: APACHE_TEST_CONFIGURE needs the Apache::TestConfig object
Hmm, we don't want to pass the package name to the package itself, this fixes it, so we can write:
sub APACHE_TEST_CONFIG {
my $self = shift;
...Index: Apache-Test/lib/Apache/TestConfigPerl.pm
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfigPerl.pm,v
retrieving revision 1.25
diff -u -r1.25 TestConfigPerl.pm
--- Apache-Test/lib/Apache/TestConfigPerl.pm 2001/09/15 19:29:30 1.25
+++ Apache-Test/lib/Apache/TestConfigPerl.pm 2001/09/15 19:54:04
@@ -312,7 +312,8 @@
require $file;
# double check that it's a real sub
if ($module->can('APACHE_TEST_CONFIGURE')) {
- eval { $module->APACHE_TEST_CONFIGURE($self); };
+ no strict 'refs';
+ eval { "${module}::APACHE_TEST_CONFIGURE"->($self) };
warn $@ if $@;
}
}
--
_____________________________________________________________________ Stas Bekman JAm_pH -- Just Another mod_perl Hacker http://stason.org/ mod_perl Guide http://perl.apache.org/guide mailto:[EMAIL PROTECTED] http://apachetoday.com http://eXtropia.com/ http://singlesheaven.com http://perl.apache.org http://perlmonth.com/
