Copy stable/9 to releng/9.0 as part of the FreeBSD 9.0-RELEASE release

[FreeBSD/releng/9.0.git] / contrib / nvi / perl_scripts / wc.pl

sub wc {
  my $words;
  $i = $VI::StartLine;
  while ($i <= $VI::StopLine) {
    $_ = $curscr->GetLine($i++);
    $words+=split;
  }
  $curscr->Msg("$words words");
}

1;