Try to improve script's performance; removed regression/misc/10-tfn-cache.t

Author: airween

tests/regression/misc/10-tfn-cache.t

@@ -474,10 +474,16 @@ sub match_log {
             #dbg("Match \"$re\" in $name \"$$rbuf\" ($n)");
             if ($$rbuf =~ m/$re/m) {
                 $rc = $&;
+                # clear buffer
+                $$rbuf =~ s/.*$re//sm;
                 last;
             }
-            # TODO: Use select()/poll()
-            sleep 0.1 unless ($nbytes == $BUFSIZ);
+            unless ($nbytes == $BUFSIZ) {
+                # wait until we can read from the file but max 0.1 secs
+                my $rin = '';
+                vec($rin, fileno($fh), 1) = 1;
+                select($rin, undef, undef, 0.1);
+            }
             if ($graph and $opt{d}) {
                 $i++;
                 if ($i == 10) {