httpd-test-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Stas <s...@stason.org>
Subject Re: cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfigPerl.pm
Date Sat, 15 Sep 2001 19:53:45 GMT
dougm@apache.org 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:stas@stason.org   http://apachetoday.com http://eXtropia.com/
http://singlesheaven.com http://perl.apache.org http://perlmonth.com/



Mime
View raw message