1*dbd550edSchristossub forall { 2*dbd550edSchristos my ($code) = shift; 3*dbd550edSchristos my ($i) = $VI::StartLine-1; 4*dbd550edSchristos while (++$i <= $VI::StopLine) { 5*dbd550edSchristos $_ = $curscr->GetLine($i); 6*dbd550edSchristos VI::SetLine($VI::ScreenId, $i, $_) if(&$code); 7*dbd550edSchristos } 8*dbd550edSchristos} 9*dbd550edSchristos 10*dbd550edSchristos1; 11