X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F11-unicode.t;h=2c6704aeb6e4b9a8042ae069ab7d4920df50a01a;hb=refs%2Ftags%2Fv0.05;hp=f0c19e432ede1f389a49e2344812f6062842f8cc;hpb=eccac2c27337a828907205353fc7907da4c3e4a4;p=perl%2Fmodules%2FIPC-MorseSignals.git

diff --git a/t/11-unicode.t b/t/11-unicode.t
index f0c19e4..2c6704a 100644
--- a/t/11-unicode.t
+++ b/t/11-unicode.t
@@ -14,8 +14,7 @@ sub trysend8 {
  my $ok = 0;
  $desc .= ' (unicode)';
 SPEED:
- while (($speed > 1) && !$ok) {
-  $speed /= 2;
+ while ((($speed /= 2) >= 1) && !$ok) {
   my $pid = fork;
   if (!defined $pid) {
    die "$desc: fork() failed : $!";