Subversion Repositories DevTools

Rev

Rev 7300 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7300 Rev 7323
Line 187... Line 187...
187 
    #
 187 
    #
188 
    $rv = system( @cmd );
 188 
    $rv = system( @cmd );
189 
 
 189 
 
190 
    #
 190 
    #
191 
    #   Report the result code
 191 
    #   Report the result code
- 
 
 192 
    #   Note: -1 indicates the progarm didn't run at all
- 
 
 193 
    #         Otherwise the upper 8 bits is the programs exit code
192 
    #
 194 
    #
193 
    Verbose2 "System Result Code: $rv";
 195 
    Verbose2 "System Result Code: $rv";
194 
    Verbose2 "System Result Code: $!" if ($rv);
 196 
    Verbose2 "System Result Code: $!" if ($rv);
- 
 
 197 
    if ($rv eq -1) {
- 
 
 198 
        $rv = -1;
- 
 
 199 
    } else {
195 
    $rv = $rv / 256;
 200 
        $rv = $rv / 256;
- 
 
 201 
    }
196 
 
 202 
 
197 
    #
 203 
    #
198 
    #   If ExitOnError is enabled, then force program termination
 204 
    #   If ExitOnError is enabled, then force program termination
199 
    #
 205 
    #
200 
    if ( $rv && $exit )
 206 
    if ( $rv && $exit )