Subversion Repositories DevTools

Rev

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

Rev 7306 Rev 7307
Line 238... Line 238...
238 
{
 238 
{
239 
    my ($self) = @_;
 239 
    my ($self) = @_;
240 
 
 240 
 
241 
    #
 241 
    #
242 
    #   Locate all the build files that match the users request
 242 
    #   Locate all the build files that match the users request
243 
    #   Use 'our' to avoid closure issues
 - 
 
244 
 
 243 
    #
245 
    my $ff_datap = \@{$self->{info}};
 244 
    my $ff_datap = \@{$self->{info}};
246 
    my $ff_file = $self->{file};
 245 
    my $ff_file = $self->{file};
247 
    my $ff_all = $self->{locateAll};
 246 
    my $ff_all = $self->{locateAll};
248 
    my $ff_self = $self;
 247 
    my $ff_self = $self;
249 
    my $ff_ant = ( $ff_file =~ m~(.+)\.xml$~i ) ? $1 : '';
 248 
    my $ff_ant = ( $ff_file =~ m~(.+)\.xml$~i ) ? $1 : '';
Line 308... Line 307...
308 
        }
 307 
        }
309 
 
 308 
 
310 
        #
 309 
        #
311 
        #   Detect ANT {packagename}depends.xml file
 310 
        #   Detect ANT {packagename}depends.xml file
312 
        #       These are file pairs (mostly)
 311 
        #       These are file pairs (mostly)
- 
 
 312 
        #       Must not be empty
313 
        #
 313 
        #
314 
        if ( $ff_all && $file =~ m/(.+)depends.xml$/ )
 314 
        if ( $ff_all && $file =~ m/(.+)depends.xml$/ && -s $file )
315 
        {
 315 
        {
316 
            if ( -f ($File::Find::dir . '/' . $1 . '.xml') )
 316 
            my $baseFile = $File::Find::dir . '/' . $1 . '.xml';
- 
 
 317 
            if ( -f $baseFile && -s $baseFile )
317 
            {
 318 
            {
318 
                Verbose ("locateBuildFile: FOUND $File::Find::dir, $file");
 319 
                Verbose ("locateBuildFile: FOUND $File::Find::dir, $file");
319 
                push @{$ff_datap}, BuildEntry( $File::Find::dir, $file, 2);
 320 
                push @{$ff_datap}, BuildEntry( $File::Find::dir, $file, 2);
320 
            }
 321 
            }
321 
        }
 322 
        }