Subversion Repositories DevTools

Rev

Rev 379 | Rev 4085 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 379 Rev 2429
Line 190... Line 190...
190 
            $ScmOnExit = $value;
 190 
            $ScmOnExit = $value;
191 
 
 191 
 
192 
        } elsif ( $key =~ /^delay_exit/ ) {
 192 
        } elsif ( $key =~ /^delay_exit/ ) {
193 
            $ScmDelayExit = $value;
 193 
            $ScmDelayExit = $value;
194 
 
 194 
 
- 
 
 195 
        } elsif ( $key =~ /^exitCode/i ) {
- 
 
 196 
            $ScmExitCode = $value || 1;
- 
 
 197 
 
195 
        } else {
 198 
        } else {
196 
            Error("ErrorConfig, Unknown option: $key");
 199 
            Error("ErrorConfig, Unknown option: $key");
197 
        }
 200 
        }
198 
    }
 201 
    }
199 
 
 202 
 
Line 503... Line 506...
503 
#                   This could be used to generate multiple error messages
 506 
#                   This could be used to generate multiple error messages
504 
#                   while parsing a file, and then terminate program execution at
 507 
#                   while parsing a file, and then terminate program execution at
505 
#                   the end of the phase.
 508 
#                   the end of the phase.
506 
#
 509 
#
507 
# Inputs          : An array of strings to display
 510 
# Inputs          : An array of strings to display
- 
 
 511 
#                   First entry May be an exist code of the form
- 
 
 512 
#                       ExitCode=nnn
508 
#
 513 
#
509 
# Returns         : May not return
 514 
# Returns         : May not return
510 
#
 515 
#
511 
 
 516 
 
512 
sub Error
 517 
sub Error
513 
{
 518 
{
- 
 
 519 
    if ( $_[0] =~ m~^ExitCode=(\d+)$~i )
- 
 
 520 
    {
- 
 
 521 
        $ScmExitCode = $1 || 1;
- 
 
 522 
        shift @_;
- 
 
 523 
    }
514 
    _Message '(E)', @_;
 524 
    _Message '(E)', @_;
515 
    $ScmErrorCount++;
 525 
    $ScmErrorCount++;
516 
    ErrorDoExit() unless ( $ScmDelayExit );
 526 
    ErrorDoExit() unless ( $ScmDelayExit );
517 
}
 527 
}
518 
 
 528