Importing IPC-MorseSignals-0.05.tar.gz

[perl/modules/IPC-MorseSignals.git] / t / 11-unicode.t

diff --git a/t/11-unicode.t b/t/11-unicode.t
index f0c19e432ede1f389a49e2344812f6062842f8cc..2c6704aeb6e4b9a8042ae069ab7d4920df50a01a 100644 (file)
--- 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 : $!";