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