mirror of
https://github.com/opnsense/src.git
synced 2026-02-14 08:13:38 -05:00
b8ba871bd9
files, curses, db, regex etc that we already have). The other glue will follow shortly. Obtained from: Keith Bostic <bostic@bostic.com>
10 lines
191 B
Perl
10 lines
191 B
Perl
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;
|