Subversion Repositories DevTools

Rev

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

Rev 2449 Rev 2930
Line 2173... Line 2173...
2173 
{
 2173 
{
2174 
    #
 2174 
    #
2175 
    #   Return the cached result for speed
 2175 
    #   Return the cached result for speed
2176 
    #   The value need only be calculated once
 2176 
    #   The value need only be calculated once
2177 
    #
 2177 
    #
2178 
    unless ( defined @BUILD_ACTIVEPLATFORMS )
 2178 
    unless ( @BUILD_ACTIVEPLATFORMS )
2179 
    {
 2179 
    {
2180 
        my ($platform_filter);
 2180 
        my ($platform_filter);
2181 
        my %result;
 2181 
        my %result;
2182 
        my %part_to_platform;
 2182 
        my %part_to_platform;
2183 
 
 2183 
 
Line 2332... Line 2332...
2332 
sub PrintPlatforms
 2332 
sub PrintPlatforms
2333 
{
 2333 
{
2334 
    my ($platforms, $nl) = @_;
 2334 
    my ($platforms, $nl) = @_;
2335 
    my ($string) = "";                          # result
 2335 
    my ($string) = "";                          # result
2336 
 
 2336 
 
2337 
    if ( defined(@$platforms) )
 2337 
    if ( @$platforms )
2338 
    {
 2338 
    {
2339 
        my ($key_run) = 0;
 2339 
        my ($key_run) = 0;
2340 
        my ($pkey);                             # previous key
 2340 
        my ($pkey);                             # previous key
2341 
 
 2341 
 
2342 
        #   Perform a simple formatting and determine if there is key
2342 
        #   Perform a simple formatting and determine if there is key