Verified Commit 22133e35 authored by Vladimír Štill's avatar Vladimír Štill
Browse files

Add makefilter

parent a4286bc8
#!/usr/bin/env perl
use warnings;
use strict;
use Term::ANSIColor;
use v5.16;
open(my $full, ">", "make-full.log");
my $cut = 0;
while (<>) {
print $full $_;
s/(error)/colored($1, 'bright_red')/ei;
print if not $cut;
if (/make: \*\*\* Waiting for unfinished jobs\.\.\./) {
$cut = 1;
say "[[[log cut by makefilter, full log in make-full.log]]]";
}
}
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment