svn commit: r372610 - /perl/Apache-Test/trunk/lib/Apache/Test.pm

[co...@apache.org]

Author: colm
Date: Thu Jan 26 13:33:35 2006
New Revision: 372610

URL: http://svn.apache.org/viewcvs?rev=372610&view=rev
Log:
Add a need_imagemap subroutine and modify _need_multi into
reliably working.

Modified:
    perl/Apache-Test/trunk/lib/Apache/Test.pm

Modified: perl/Apache-Test/trunk/lib/Apache/Test.pm
URL: http://svn.apache.org/viewcvs/perl/Apache-Test/trunk/lib/Apache/Test.pm?rev=372610&r1=372609&r2=372610&view=diff
==============================================================================
--- perl/Apache-Test/trunk/lib/Apache/Test.pm (original)
+++ perl/Apache-Test/trunk/lib/Apache/Test.pm Thu Jan 26 13:33:35 2006
@@ -42,7 +42,7 @@
               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
-              need_php need_php4 need_ssl);
+              need_php need_php4 need_ssl need_imagemap);
 
 my @have = map { (my $need = $_) =~ s/need/have/; $need } @need;
 
@@ -367,19 +367,16 @@
     return _need_multi(qw(auth auth_basic));
 }
 
-sub _need_multi {
+sub need_imagemap {
+    return _need_multi(qw(imagemap imap));
+}
 
+sub _need_multi {
     my @need = @_;
-
+    my $reason = join ' or ', @need;
     my $rc;
 
-    {
-        local @SkipReasons;
-
-        $rc = grep { need_module($_) } @need;
-    }
-
-    my $reason = join ' or ', @need;
+    $rc = grep { need_module($_) } @need;
 
     push @SkipReasons, "cannot find one of $reason"
         unless $rc;