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