Subversion Repositories DevTools

Rev

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

Rev 5708 Rev 5816
Line 10432... Line 10432...
10432 
    my $txt = 'Removing directories';
 10432 
    my $txt = 'Removing directories';
10433 
    foreach my $subdir ( reverse sort keys %MkdirRuleData )
 10433 
    foreach my $subdir ( reverse sort keys %MkdirRuleData )
10434 
    {
 10434 
    {
10435 
        my @args = $subdir;
 10435 
        my @args = $subdir;
10436 
 
 10436 
 
10437 
        push (@args, $MkdirRuleGbeFile, 'core', '*.bak', '*.tmp', '*.err')
 10437 
        push (@args, $MkdirRuleGbeFile, 'core', '*.bak', '*.tmp', '*.err', 'utf.*.rc')
10438 
            unless $MkdirRuleData{$subdir}{remove_all};
 10438 
            unless $MkdirRuleData{$subdir}{remove_all};
10439 
 
 10439 
 
10440 
        push (@args, @{$MkdirRuleData{$subdir}{extraFiles}})
 10440 
        push (@args, @{$MkdirRuleData{$subdir}{extraFiles}})
10441 
            if ( $MkdirRuleData{$subdir}{extraFiles} );
 10441 
            if ( $MkdirRuleData{$subdir}{extraFiles} );
10442 
 
 10442