Subversion Repositories DevTools

Rev

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

Rev 283 Rev 369
Line 151... Line 151...
151 
    {
 151 
    {
152 
        sub ExpandAlias
 152 
        sub ExpandAlias
153 
        {
 153 
        {
154 
            my( $key ) = @_;
 154 
            my( $key ) = @_;
155 
 
 155 
 
156 
            if (defined(%::BUILDALIAS))         # buildlib.pl
 156 
            if (%::BUILDALIAS)         # buildlib.pl
157 
            {
 157 
            {
158 
                return ExpandPlatform( split( ' ', $::BUILDALIAS{ $key } ) )
 158 
                return ExpandPlatform( split( ' ', $::BUILDALIAS{ $key } ) )
159 
                    if ( $key !~ /^--/ && $::BUILDALIAS{ $key } );
 159 
                    if ( $key !~ /^--/ && $::BUILDALIAS{ $key } );
160 
            }
 160 
            }
161 
            else
 161 
            else
162 
            {
 162 
            {
163 
                return $key                     # argument || no aliases
 163 
                return $key                     # argument || no aliases
164 
                    if ( $key =~ /^--/ || !defined(%::ScmBuildAliases) );
 164 
                    if ( $key =~ /^--/ || !(%::ScmBuildAliases) );
165 
 
 165 
 
166 
                return ExpandPlatform( split( ' ', $::ScmBuildAliases{ $key } ) )
 166 
                return ExpandPlatform( split( ' ', $::ScmBuildAliases{ $key } ) )
167 
                    if ( $::ScmBuildAliases{ $key } );
 167 
                    if ( $::ScmBuildAliases{ $key } );
168 
            }
 168 
            }
169 
 
 169