Sync with FreeBSD. This adds read-only support for zip and ISO9660.
[dragonfly.git] / contrib / nvi / perl_scripts / forall.pl
1 sub forall {
2   my ($code) = shift;
3   my ($i) = $VI::StartLine-1;
4   while (++$i <= $VI::StopLine) {
5     $_ = $curscr->GetLine($i);
6     VI::SetLine($VI::ScreenId, $i, $_) if(&$code);
7   }
8 }
9
10 1;