1sub push_tags { 2 my ($fh) = shift; 3 my ($tagq) = $curscr->TagQ("msg"); 4 while(<$fh>) { 5 my ($f, $l, $m); 6 if ((($f, $l, $m) = split /:/) >= 2 && -f $f && $l =~ /^\d+$/) { 7 $tagq->Add($f, $l, $m); 8 } 9 } 10 $tagq->Push(); 11} 12 13sub make { 14 local (*FH); 15 open FH, "make 2>&1 |"; 16 ::push_tags(\*FH); 17 close FH; 18} 19 201; 21