X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F10-base.t;h=782e0b2d42c84e38b2b1f81a019362ef56c37035;hb=refs%2Ftags%2Fv0.05;hp=3eb877ccc3be3ae25638e2c35b135f18f5969e1d;hpb=eccac2c27337a828907205353fc7907da4c3e4a4;p=perl%2Fmodules%2FIPC-MorseSignals.git

diff --git a/t/10-base.t b/t/10-base.t
index 3eb877c..782e0b2 100644
--- a/t/10-base.t
+++ b/t/10-base.t
@@ -11,8 +11,7 @@ sub trysend {
  my $speed = 2 ** 16;
  my $ok = 0;
 SPEED:
- while (($speed > 1) && !$ok) {
-  $speed /= 2;
+ while ((($speed /= 2) >= 1) && !$ok) {
   my $pid = fork;
   if (!defined $pid) {
    die "$desc: fork() failed : $!";