Subversion Repositories DevTools

Rev

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

Rev 299 Rev 303
Line 725... Line 725...
725 
    #   If it does exist then it can alter build-time information
 725 
    #   If it does exist then it can alter build-time information
726 
    #
 726 
    #
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 
 
- 
 
 731 
        #
- 
 
 732 
        #   Create package name with an uppercase target
- 
 
 733 
        #   Target should be UC, but under windows its not detected
- 
 
 734 
        #   at this time
- 
 
 735 
        #
730 
        my $package_name = "${target}_Build";
 736 
        my $package_name = uc($target) . '_Build';
731 
 
 737 
 
732 
        #
 738 
        #
733 
        #   Ensure that the CFG is correclt formed
 739 
        #   Ensure that the CFG is correclt formed
734 
        #       Perhaps the package that it implements was misnamed
 740 
        #       Perhaps the package that it implements was misnamed
735 
        #
 741 
        #
736 
        Error ("INERNAL: $target.cfg does not satisfy API " )
 742 
        Error ("INTERNAL: $target.cfg does not satisfy API " )
737 
            unless ( $package_name->can('new_platform') || $package_name->can('add_platform') );
 743 
            unless ( $package_name->can('new_platform') || $package_name->can('add_platform') );
738 
 
 744 
 
739 
        if ( $package_name->can('new_platform') )
 745 
        if ( $package_name->can('new_platform') )
740 
        {
 746 
        {
741 
            Verbose ("Processing(new) Platform Configuration: $package_name");
 747 
            Verbose ("Processing(new) Platform Configuration: $package_name");