perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From cho...@apache.org
Subject svn commit: r124320 - /perl/modperl/trunk/t/response/TestPerl/signals.pm
Date Wed, 05 Jan 2005 23:52:19 GMT
Author: cholet
Date: Wed Jan  5 15:52:18 2005
New Revision: 124320

URL: http://svn.apache.org/viewcvs?view=rev&rev=124320
Log:
skip unsafe SIGALRM test on darwin
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=124320&p1=perl/modperl/trunk/t/response/TestPerl/signals.pm&r1=124319&p2=perl/modperl/trunk/t/response/TestPerl/signals.pm&r2=124320
==============================================================================
--- perl/modperl/trunk/t/response/TestPerl/signals.pm	(original)
+++ perl/modperl/trunk/t/response/TestPerl/signals.pm	Wed Jan  5 15:52:18 2005
@@ -32,6 +32,10 @@
 
     # doesn't work under static prefork
     if (!$static) {
+      if ($^O eq 'darwin') {
+        skip "ALRM can't be used on darwin", 0;
+      }
+      else {
         local $ENV{PERL_SIGNALS} = "unsafe";
 
         eval {
@@ -41,6 +45,7 @@
             alarm 0;
         };
         ok t_cmp $@, qr/alarm/, "SIGALRM / unsafe %SIG";
+      }
     }
 
     # POSIX::sigaction doesn't work under 5.6.x

Mime
View raw message