Subversion Repositories DevTools

Rev

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

Rev 2021 Rev 3572
Line 119... Line 119...
119 
    my $cvt = 0;
 119 
    my $cvt = 0;
120 
    $cvt = 1 if ( $build_name =~ s/^ERG/erg-/ );
 120 
    $cvt = 1 if ( $build_name =~ s/^ERG/erg-/ );
121 
    $cvt = 1 if ( $build_name =~ s/^VIX/vix-/ );
 121 
    $cvt = 1 if ( $build_name =~ s/^VIX/vix-/ );
122 
    $cvt = 1 if ( $build_name =~ s~\s~-~g );
 122 
    $cvt = 1 if ( $build_name =~ s~\s~-~g );
123 
    $cvt = 1 if ( $build_name =~ s~_~-~g );
 123 
    $cvt = 1 if ( $build_name =~ s~_~-~g );
124 
    $cvt = 1 if ( $build_name =~ tr/-//s );
 124 
    $cvt = 1 if ( $build_name =~ s~-+~-~g );
125 
    if ( $build_name =~ m/[A-Z]/ )
 125 
    if ( $build_name =~ m/[A-Z]/ )
126 
    {
 126 
    {
127 
        $cvt = 1;
 127 
        $cvt = 1;
128 
        $build_name = lc $build_name;
 128 
        $build_name = lc $build_name;
129 
    }
 129 
    }