Put the first error in the perl console as well as the log file.

This commit is contained in:
mcmullen%netscape.com 1998-11-13 22:01:21 +00:00
parent ec16d218b2
commit e421035641

View File

@ -204,6 +204,8 @@ sub log_recent_errors($)
{ {
if ( /^Error/ || /^CouldnÕt find project file/ ) if ( /^Error/ || /^CouldnÕt find project file/ )
{ {
if (!$found_errors)
print $_; # put the first error in the perl console.
$found_errors = 1; $found_errors = 1;
} }
print ERROR_LOG $_; print ERROR_LOG $_;