mirror of
https://github.com/swg-ostrich/ostrich.git
synced 2026-01-16 23:04:19 -05:00
12 lines
142 B
Perl
Executable File
12 lines
142 B
Perl
Executable File
$what = shift;
|
|
while ($a = <>)
|
|
{
|
|
if ($a =~ /^\s*\d+\s+Error:/)
|
|
{
|
|
print if (eval $what);
|
|
$_ = "";
|
|
}
|
|
$_ .= $a;
|
|
}
|
|
print if (eval $what);
|