Author: gozer
Date: Mon Dec  6 12:49:52 2004
New Revision: 110025

URL: http://svn.apache.org/viewcvs?view=rev&rev=110025
Log:
Skip first signal test under static build.


Modified:
   perl/modperl/trunk/t/response/TestPerl/signals.pm

Modified: perl/modperl/trunk/t/response/TestPerl/signals.pm
Url: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestPerl/signals.pm?view=diff&rev=110025&p1=perl/modperl/trunk/t/response/TestPerl/signals.pm&r1=110024&p2=perl/modperl/trunk/t/response/TestPerl/signals.pm&r2=110025
==============================================================================
--- perl/modperl/trunk/t/response/TestPerl/signals.pm   (original)
+++ perl/modperl/trunk/t/response/TestPerl/signals.pm   Mon Dec  6 12:49:52 2004
@@ -5,6 +5,7 @@
 
 use Apache::Test;
 use Apache::TestUtil;
+use Apache::BuildConfig;
 
 use Apache::MPM ();
 
@@ -22,10 +23,15 @@
 sub handler {
     my $r = shift;
 
-    plan $r, tests => 2,
+    my $build = Apache::BuildConfig->new;
+    my $static = $build->should_build_apache ? 1 : 0;
+    
+    my $tests = $static ? 1 : 2;
+    
+    plan $r, tests => $tests,
         need { "works only for prefork" => ($mpm eq 'prefork') };
 
-    {
+    if (!$static) {
         local $ENV{PERL_SIGNALS} = "unsafe";
 
         eval {

Reply via email to