minor bugfix for Apache::Test

[prev] [thread] [next] [Date index for 2005/01/26]

--nextPart1326044.jVX0RR9Fr9
Content-Type: text/plain;
  charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline

Hi,

while trying out Apache-IncludeHook-2.00_02 I stumbled across the lack of=20
Apache::Test::have(). This patch cures it.

Torsten

=2D-- Apache-Test/lib/Apache/Test.pm~	2005-01-22 09:28:06.000000000 +0100
+++ Apache-Test/lib/Apache/Test.pm	2005-01-26 10:18:09.819907681 +0100
@@ -29,12 +29,12 @@
               need_module need_apache need_min_apache_version
               need_apache_version need_perl need_min_perl_version
               need_min_module_version need_threads need_apache_mpm
=2D              need_php need_php4 need_ssl);
+              need_php need_php4 need_ssl need);
=20
 my @have =3D map { (my $need =3D $_) =3D~ s/need/have/; $need } @need;
=20
 @ISA =3D qw(Exporter);
=2D@EXPORT =3D (qw(ok skip sok plan skip_reason under_construction need),
+@EXPORT =3D (qw(ok skip sok plan skip_reason under_construction),
            @need, @have);
=20
 # everything but ok(), skip(), and plan() - Test::More provides these
@@ -495,7 +495,7 @@
 # @SkipReasons
 for my $func (@have) {
     no strict 'refs';
=2D    (my $real_func =3D $func) =3D~ s/^have_/need_/;
+    (my $real_func =3D $func) =3D~ s/^have/need/;
     *$func =3D sub {
         # be nice to poor souls calling functions with $_ argument in
         # the foreach loop, etc.!

--nextPart1326044.jVX0RR9Fr9
Content-Type: application/pgp-signature

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.5 (GNU/Linux)

iD8DBQBB9203wicyCTir8T4RAvYrAJ420M28Fb+ZSo/WNOn6xtFC0ablGACdHkTb
QWvA9WX3JSfDFK9I4LLOFK0=
=XNlN
-----END PGP SIGNATURE-----

--nextPart1326044.jVX0RR9Fr9--