Subversion Repositories DevTools

Rev

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

Rev 2085 Rev 2449
Line 277... Line 277...
277
 
277
 
278
    foreach my $ThisDir ( @NewDirs )
278
    foreach my $ThisDir ( @NewDirs )
279
    {
279
    {
280
        unless ( $Clobber )
280
        unless ( $Clobber )
281
        {
281
        {
-
 
282
            $ThisDir =~ s~/+$~~;
282
            if ( $ThisDir eq "." )
283
            if ( $ThisDir eq "." )
283
            {
284
            {
284
                Error( "BuildSubDir() cannot specify the current directory (.)",
285
                Error( "BuildSubDir() cannot specify the current directory (.)",
285
                       "The makefile.pl in the root directory is included in all makefile.pl's" );
286
                       "The makefile.pl in the root directory is included in all makefile.pl's" );
286
            }
287
            }
Line 3874... Line 3875...
3874
 
3875
 
3875
sub BuildAddKnownFile
3876
sub BuildAddKnownFile
3876
{
3877
{
3877
    my ($path, $file, $noadd) = @_;
3878
    my ($path, $file, $noadd) = @_;
3878
    $path .= '/'. $file;
3879
    $path .= '/'. $file;
-
 
3880
    $path =~ tr~/~/~s;
3879
    $BUILD_KNOWNFILES {$file} = $path
3881
    $BUILD_KNOWNFILES {$file} = $path
3880
        unless ( defined($noadd) && $noadd);
3882
        unless ( defined($noadd) && $noadd);
3881
    push @CLOBBERFILES, $path;
3883
    push @CLOBBERFILES, $path;
3882
    
3884
    
3883
    return $path;
3885
    return $path;