mirror of
https://bitbucket.org/theswgsource/client-tools-1.2.git
synced 2026-01-16 23:04:40 -05:00
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);
|