Subversion Repositories DevTools

Rev

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

Rev 1454 Rev 2028
Line 1194... Line 1194...
1194 
# Returns         : Will not return if changes are not allowed
 1194 
# Returns         : Will not return if changes are not allowed
1195 
#
 1195 
#
1196 
sub determineChangedFiles
 1196 
sub determineChangedFiles
1197 
{
 1197 
{
1198 
    my @msgText;
 1198 
    my @msgText;
- 
 
 1199 
    my $onlyWarn = ($checkDelta == 1);
1199 
 
 1200 
 
1200 
    #
 1201 
    #
1201 
    #   No checking required
 1202 
    #   No checking required
1202 
    #   Skip the hard bit if running on a build machine
 1203 
    #   Skip the hard bit if running on a build machine
1203 
    #
 1204 
    #
Line 1223... Line 1224...
1223 
    my $rv = $svn_check->SvnInfo( $svn_check->Full, 'InfoRepo' );
 1224 
    my $rv = $svn_check->SvnInfo( $svn_check->Full, 'InfoRepo' );
1224 
    if ( $rv )
 1225 
    if ( $rv )
1225 
    {
 1226 
    {
1226 
        push (@msgText, "Cannot read information for the head of the development branch",
 1227 
        push (@msgText, "Cannot read information for the head of the development branch",
1227 
                        "Branch may not exist: $baseBranch");
 1228 
                        "Branch may not exist: $baseBranch");
- 
 
 1229 
        $onlyWarn = 1;
1228 
    }
 1230 
    }
1229 
    else
 1231 
    else
1230 
    {
 1232 
    {
1231 
        $devBranchHead = $svn_check->{'InfoRepo'}{'Last Changed Rev'};
 1233 
        $devBranchHead = $svn_check->{'InfoRepo'}{'Last Changed Rev'};
1232 
        Verbose2("devBranchHead: $devBranchHead");
 1234 
        Verbose2("devBranchHead: $devBranchHead");
Line 1281... Line 1283...
1281 
        push (@msgText, "Changed file count: $rv") if ( $rv );
 1283 
        push (@msgText, "Changed file count: $rv") if ( $rv );
1282 
        push (@msgText, "More than 10 files have changed. First 10 are:") if ( $rv > 10);
 1284 
        push (@msgText, "More than 10 files have changed. First 10 are:") if ( $rv > 10);
1283 
        push (@msgText, @{$svn_check->{tmp}{files}} );
 1285 
        push (@msgText, @{$svn_check->{tmp}{files}} );
1284 
    }
 1286 
    }
1285 
 
 1287 
 
1286 
    if ( $checkDelta == 1) {
 1288 
    if ($onlyWarn) {
1287 
        push @messageText, @msgText;
 1289 
        push @messageText, @msgText;
1288 
    } else {
 1290 
    } else {
1289 
        Error ( @msgText );
 1291 
        Error ( @msgText );
1290 
    }
 1292 
    }
1291 
}
 1293 
}