sub _check_build_error()

in lib/ES/Util.pm [305:321]

• 13 lines of code
• 6 McCabe index (conditional complexity)

sub _check_build_error {
#===================================
    my ( $output, $died, $lenient ) = @_;

    $output =~ s/INFO: possible invalid reference: /WARNING: invalid reference: /;
    my @lines = split "\n", $output;
    my @build_warnings = grep {/^(a2x|asciidoc(tor)?): (WARNING|ERROR):/} @lines;
    my $warned = @build_warnings;
    return unless $died || $warned;

    my @warn = grep { /(WARNING|ERROR):/ || !/^(a2x|asciidoc(tor)?): / } @lines;

    if ( $died || $warned && !$lenient ) {
        die join "\n", ( '', @warn, '' );
    }
    warn join "\n", ( '', @warn, '' );
}