Subversion Repositories DevTools

Rev

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

Rev 289 Rev 297
Line 727... Line 727...
727 
    if ( my $build_cfg = Require( "$::GBE_CONFIG/PLATFORM", "$target.cfg"  ) )
 727 
    if ( my $build_cfg = Require( "$::GBE_CONFIG/PLATFORM", "$target.cfg"  ) )
728 
    {
 728 
    {
729 
        Verbose ("Processing(new) Platform Configuration file: $build_cfg");
 729 
        Verbose ("Processing(new) Platform Configuration file: $build_cfg");
730 
        my $package_name = "${target}_Build";
 730 
        my $package_name = "${target}_Build";
731 
 
 731 
 
- 
 
 732 
        #
- 
 
 733 
        #   Ensure that the CFG is correclt formed
- 
 
 734 
        #       Perhaps the package that it implements was misnamed
- 
 
 735 
        #
- 
 
 736 
        Error ("INERNAL: $target.cfg does not satisfy API " )
- 
 
 737 
            unless ( $package_name->can('new_platform') || $package_name->can('add_platform') );
- 
 
 738 
 
732 
        if ( $package_name->can('new_platform') )
 739 
        if ( $package_name->can('new_platform') )
733 
        {
 740 
        {
734 
            Verbose ("Processing(new) Platform Configuration: $package_name");
 741 
            Verbose ("Processing(new) Platform Configuration: $package_name");
735 
            $package_name->new_platform( \%buildentry );
 742 
            $package_name->new_platform( \%buildentry );
736 
        }
 743 
        }