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;