1 files changed, 10 insertions, 0 deletions
diff --git a/contrib/nvi/perl_scripts/forall.pl b/contrib/nvi/perl_scripts/forall.pl
new file mode 100644
index 0000000..b9f8501
--- /dev/null
+++ b/contrib/nvi/perl_scripts/forall.pl
@@ -0,0 +1,10 @@
+sub forall {
+  my ($code) = shift;
+  my ($i) = $VI::StartLine-1;
+  while (++$i <= $VI::StopLine) {
+    $_ = $curscr->GetLine($i);
+    VI::SetLine($VI::ScreenId, $i, $_) if(&$code);
+  }
+}
+
+1;