Sync with FreeBSD. This adds read-only support for zip and ISO9660.
[dragonfly.git] / contrib / nvi / perl_scripts / wc.pl
1 sub wc {
2   my $words;
3   $i = $VI::StartLine;
4   while ($i <= $VI::StopLine) {
5     $_ = $curscr->GetLine($i++);
6     $words+=split;
7   }
8   $curscr->Msg("$words words");
9 }
10
11 1;