cvs commit: ponie/perl/t/op exec.t

cvsuser     04/05/03 08:35:54

  Modified:    perl/t/lib/warnings doio
               perl/t/op exec.t
  Log:
  Skip OS X brokenness for now. Hopefully Apple will fix this soon.
  
  Revision  Changes    Path
  1.2       +7 -0      ponie/perl/t/lib/warnings/doio
  
  Index: doio
  ===================================================================
  RCS file: /cvs/public/ponie/perl/t/lib/warnings/doio,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- doio	9 Sep 2003 11:59:51 -0000	1.1
  +++ doio	3 May 2004 15:35:54 -0000	1.2
  @@ -215,6 +215,13 @@
   EOM
   	exit;
       }
  +    if ($^O eq 'darwin') {
  +	print <<EOM;
  +SKIPPED
  +# Darwin is broken. Please fix it so that execve works when there are threads
  +EOM
  +	exit;
  +    }
   }
   use warnings 'exec' ;
   exec $^X, "-e0" ;
  
  
  
  1.2       +4 -1      ponie/perl/t/op/exec.t
  
  Index: exec.t
  ===================================================================
  RCS file: /cvs/public/ponie/perl/t/op/exec.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- exec.t	9 Sep 2003 11:59:51 -0000	1.1
  +++ exec.t	3 May 2004 15:35:54 -0000	1.2
  @@ -122,4 +122,7 @@
   
   my $test = curr_test();
   exec $Perl, '-le', qq{${quote}print 'ok $test - exec PROG, LIST'${quote}};
  +TODO: {
  +    local $TODO = 'Darwin is broken. Please fix it so that execve works when there are threads' if $^O eq 'darwin';
   fail("This should never be reached if the exec() worked");
  +}