Importing IPC-MorseSignals-0.05.tar.gz

[perl/modules/IPC-MorseSignals.git] / t / 10-base.t

diff --git a/t/10-base.t b/t/10-base.t
index 3eb877ccc3be3ae25638e2c35b135f18f5969e1d..782e0b2d42c84e38b2b1f81a019362ef56c37035 100644 (file)
--- 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 : $!";