add a small delay between each message

maddingue · Sep 17, 2012 · 573d281 · 573d281
1 parent 8a9ecea
commit 573d281
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/t/facilities-routing.t b/t/facilities-routing.t
@@ -66,6 +66,7 @@ if ($child_pid) {
 else {
     # child: send messages to the syslog server
     sleep 2;
+    my $delay = .01;
     setlogsock({ host => $host, type => $proto, port => $port });
 
     # first way, set the facility each time with openlog()
@@ -75,6 +76,7 @@ else {
         for my $level (@levels) {
             eval { syslog($level => "<$facility\:$level>") }
                 or warn "error: syslog($level => '<$facility\:$level>'): $@";
+            select undef, undef, undef, $delay;
         }
     }
 
@@ -86,6 +88,7 @@ else {
         for my $level (@levels) {
             eval { syslog("$facility.$level" => "<$facility\:$level>") }
                 or warn "error: syslog('$facility.$level' => '<$facility\:$level>'): $@";
+            select undef, undef, undef, $delay;
         }
     }