Subversion Repositories DevTools

Rev

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

Rev 2931 Rev 3045
Line 4062... Line 4062...
4062 
    #   xxxxxxxxx.nnnn.cots
 4062 
    #   xxxxxxxxx.nnnn.cots
4063 
    #
 4063 
    #
4064 
    if ( $version =~ m~(.*)\.cots$~ ) {
 4064 
    if ( $version =~ m~(.*)\.cots$~ ) {
4065 
        my $cots_base = $1;
 4065 
        my $cots_base = $1;
4066 
        $suffix = '.cots';
 4066 
        $suffix = '.cots';
4067 
        if ( $version =~ m~(.*?)\.([0-9]{4})\.cots$~ )
 4067 
        if ( $version =~ m~(.*?)\.([0-9]{4,5})\.cots$~ )
4068 
        {
 4068 
        {
4069 
            $result = $1 . sprintf (".%4.4d", $2) . $suffix;
 4069 
            $result = $1 . sprintf (".%4.4d", $2) . $suffix;
4070 
        }
 4070 
        }
4071 
        else
 4071 
        else
4072 
        {
 4072 
        {
4073 
            $result = $cots_base . '.0000.cots';
 4073 
            $result = $cots_base . '.0000.cots';
4074 
        }
 4074 
        }
- 
 
 4075 
        if ( $result =~ m~(.*)\.(\d+)(\d\d\d)\.cots$~ )
- 
 
 4076 
        {
- 
 
 4077 
            $buildVersion = [$1, 0 , $2, $3 ];
- 
 
 4078 
        }
4075 
    }
 4079 
    }
4076 
    #
 4080 
    #
4077 
    #   Convert version into full form for comparisions
 4081 
    #   Convert version into full form for comparisions
4078 
    #       nnn.nnn.nnn.[p]nnn.xxx
 4082 
    #       nnn.nnn.nnn.[p]nnn.xxx
4079 
    #       nnn.nnn.nnn.[p]nnn-xxx
 4083 
    #       nnn.nnn.nnn.[p]nnn-xxx