Subversion Repositories DevTools

Rev

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

Rev 4095 Rev 4128
Line 7964... Line 7964...
7964 
        $result = $result ? 1 : 0;
 7964 
        $result = $result ? 1 : 0;
7965 
        $result = ! $result if ( $not );
 7965 
        $result = ! $result if ( $not );
7966 
        return 0 unless ( $result );
 7966 
        return 0 unless ( $result );
7967 
    }
 7967 
    }
7968 
 
 7968 
 
- 
 
 7969 
    #
- 
 
 7970 
    #   If we have no platforms then the test was purely non-platform arguments.
- 
 
 7971 
    #
- 
 
 7972 
    #
- 
 
 7973 
    if ($platform_spec ne '' && ! @platforms)
- 
 
 7974 
    {
- 
 
 7975 
        return 1;
- 
 
 7976 
    }
- 
 
 7977 
 
7969 
    #   Platform specified may be an Alias
 7978 
    #   Platform specified may be an Alias
7970 
    #   Perform alias expansion
 7979 
    #   Perform alias expansion
7971 
    #
 7980 
    #
7972 
    @platforms = ExpandPlatforms( @platforms );         # aliasing
 7981 
    @platforms = ExpandPlatforms( @platforms );         # aliasing
7973 
    Debug3( " ActivePlatform(@_)" );
 7982 
    Debug3( " ActivePlatform(@_)" );