diff options
Diffstat (limited to 'qooxdoo/source/perl/Qooxdoo/Services/Tr.pm')
-rw-r--r-- | qooxdoo/source/perl/Qooxdoo/Services/Tr.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/qooxdoo/source/perl/Qooxdoo/Services/Tr.pm b/qooxdoo/source/perl/Qooxdoo/Services/Tr.pm index 0cf88b3..1d7e192 100644 --- a/qooxdoo/source/perl/Qooxdoo/Services/Tr.pm +++ b/qooxdoo/source/perl/Qooxdoo/Services/Tr.pm @@ -22,6 +22,8 @@ sub launch { return $pid; } chdir '/' or die "Can't chdir to /: $!"; + + $|++; # unbuffer open STDOUT, ">>/tmp/tr_session.$$" or die "Can't write to /tmp/tr_session.$$: $!"; open STDIN, '/dev/null' or die "Can't read /dev/null: $!"; @@ -31,7 +33,7 @@ sub launch { my $start = time; system "traceroute","-I","-q","1",$host; my $wait = $delay - (time - $start); - if ($wait > 0){ + if ($wait > 0 and $i+1< $rounds){ print "SLEEP $wait\n"; sleep $wait; } @@ -109,6 +111,7 @@ sub method_run_tr } while ($again and $point >= $size); if (seek $fh, $point,0){ while (<$fh>){ +# print STDERR $_; waitpid($handle,WNOHANG); /^traceroute to/ && next; last unless /\n$/; # stop when we find an incomplete line |