let the server only return if he has something to say.

1 files changed, 8 insertions, 8 deletions

diff --git a/qooxdoo/source/perl/Qooxdoo/Services/Tr.pm b/qooxdoo/source/perl/Qooxdoo/Services/Tr.pm
index 1d7e192..a8e3c10 100644
--- a/qooxdoo/source/perl/Qooxdoo/Services/Tr.pm
+++ b/qooxdoo/source/perl/Qooxdoo/Services/Tr.pm
@@ -23,7 +23,7 @@ sub launch {
      }
      chdir '/'               or die "Can't chdir to /: $!";
 
-     $|++; # unbuffer
+#     $|++; # 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: $!";
@@ -109,13 +109,11 @@ sub method_run_tr
 #           print STDERR "$again, $handle, $size, $point\n";
             $rounds ++;
         } while ($again and $point >= $size);
+	print STDERR "$point > $size\n";
         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
-                chomp;
+                #print STDERR ">$_<";
+		next if /^\s*$/ or /traceroute to/;
                 if (/^\s*(\d+)\s+(\S+)\s+\((\S+?)\)\s+(\S+)\s+ms/){
                     my ($hop,$host,$ip,$value) = ($1,$2,$3,$4);
                     $value = undef unless $value =~ /^\d+(\.\d+)?$/;
@@ -127,10 +125,12 @@ sub method_run_tr
                 elsif (/^SLEEP\s+(\d+)/){
                     push @array, ['SLEEP',$1];
                 }
-                else {
-                    s/traceroute:\s*//g;
+                elsif (s/traceroute:\s*//g or /\n$/){
                     push @array, ['INFO',$_];
                 }
+		else {
+	            last;
+                }
                 $point = tell($fh);
             };
             close $fh;