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");