Files
client-tools-1.2/tools/dataLintParser.pl
2015-08-04 12:05:18 -05:00

12 lines
142 B
Perl

$what = shift;
while ($a = <>)
{
if ($a =~ /^\s*\d+\s+Error:/)
{
print if (eval $what);
$_ = "";
}
$_ .= $a;
}
print if (eval $what);