mirror of
https://github.com/SWG-Source/whitengold.git
synced 2026-07-14 00:02:09 -04: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);
|