Subversion Repositories DevTools

Rev

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

Rev 6177 Rev 6198
Line 230... Line 230...
230 
{
 230 
{
231 
    my ($self) = @_;
 231 
    my ($self) = @_;
232 
 
 232 
 
233 
    #
 233 
    #
234 
    #   Locate all the build files that match the users request
 234 
    #   Locate all the build files that match the users request
235 
    #   Use 'our' to avoid closure issues
 - 
 
236 
 
 235 
    #
237 
    my $ff_datap = \@{$self->{info}};
 236 
    my $ff_datap = \@{$self->{info}};
238 
    my $ff_file = $self->{file};
 237 
    my $ff_file = $self->{file};
239 
    my $ff_all = $self->{locateAll};
 238 
    my $ff_all = $self->{locateAll};
240 
    my $ff_self = $self;
 239 
    my $ff_self = $self;
241 
    my $ff_ant = ( $ff_file =~ m~(.+)\.xml$~i ) ? $1 : '';
 240 
    my $ff_ant = ( $ff_file =~ m~(.+)\.xml$~i ) ? $1 : '';
Line 300... Line 299...
300 
        }
 299 
        }
301 
 
 300 
 
302 
        #
 301 
        #
303 
        #   Detect ANT {packagename}depends.xml file
 302 
        #   Detect ANT {packagename}depends.xml file
304 
        #       These are file pairs (mostly)
 303 
        #       These are file pairs (mostly)
- 
 
 304 
        #       Must not be empty
305 
        #
 305 
        #
306 
        if ( $ff_all && $file =~ m/(.+)depends.xml$/ )
 306 
        if ( $ff_all && $file =~ m/(.+)depends.xml$/ && -s $file )
307 
        {
 307 
        {
308 
            if ( -f ($File::Find::dir . '/' . $1 . '.xml') )
 308 
            my $baseFile = $File::Find::dir . '/' . $1 . '.xml';
- 
 
 309 
            if ( -f $baseFile && -s $baseFile )
309 
            {
 310 
            {
310 
                Verbose ("locateBuildFile: FOUND $File::Find::dir, $file");
 311 
                Verbose ("locateBuildFile: FOUND $File::Find::dir, $file");
311 
                push @{$ff_datap}, BuildEntry( $File::Find::dir, $file, 2);
 312 
                push @{$ff_datap}, BuildEntry( $File::Find::dir, $file, 2);
312 
            }
 313 
            }
313 
        }
 314 
        }