perl-timer-test.patch

   1 --- perl-5.8.8/ext/Time/HiRes/t/HiRes.t~        2005-12-17 20:20:26.000000000 +0100
   2 +++ perl-5.8.8/ext/Time/HiRes/t/HiRes.t 2007-02-11 00:06:42.000000000 +0100
   3 @@ -65,7 +65,7 @@
   4
   5  my $have_alarm = $Config{d_alarm};
   6  my $have_fork  = $Config{d_fork};
   7 -my $waitfor = 60; # 10-20 seconds is normal (load affects this).
   8 +my $waitfor = 150; # 10-20 seconds is normal (load affects this).
   9  my $timer_pid;
  10  my $TheEnd;
  11
  12 @@ -109,7 +109,7 @@
  13  # completes fine with (say) 30% slosh, and fail otherwise.  If you do that,
  14  # consider changing over to test.pl at the same time.
  15  # --A.D., Nov 27, 2001
  16 -my $limit = 0.20; # 20% is acceptable slosh for testing timers
  17 +my $limit = 0.50; # 50% is acceptable slosh for testing timers
  18
  19  sub skip {
  20      map { print "ok $_ # skipped\n" } @_;