drm/nouveau: consume the return of large GSP message

[drm/drm-misc.git] / tools / perf / tests / shell / common / check_no_patterns_found.pl

#!/usr/bin/perl
# SPDX-License-Identifier: GPL-2.0

@regexps = @ARGV;

$quiet = 1;
$quiet = 0 if (defined $ENV{TESTLOG_VERBOSITY} && $ENV{TESTLOG_VERBOSITY} ge 2);

%found = ();
$passed = 1;

while (<STDIN>)
{
        s/\n//;

        for $r (@regexps)
        {
                if (/$r/)
                {
                        $found{$r} = 1;
                }
        }
}

for $r (@regexps)
{
        if (exists $found{$r})
        {
                print "Regexp found: \"$r\"\n" unless $quiet;
                $passed = 0;
        }
}

exit ($passed == 0);