Subversion Repositories DevTools

Rev

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

Rev 409 Rev 413
Line 91... Line 91...
91 
    $cvt = 1 if ( $build_name =~ tr/-//s );
 91 
    $cvt = 1 if ( $build_name =~ tr/-//s );
92 
 
 92 
 
93 
    Warning ("Package Name converted to debian friendly form: $build_name")
 93 
    Warning ("Package Name converted to debian friendly form: $build_name")
94 
        if ( $cvt );
 94 
        if ( $cvt );
95 
 
 95 
 
96 
    unless ( $build_name =~ m/^[a-z]{2}[-+a-z0-9]+$/ )
 96 
    unless ( $build_name =~ m/^[a-z][-+a-z0-9]+$/ )
97 
    {
 97 
    {
98 
        Error ("Package Name does not conform to Debian Requirements",
 98 
        Error ("Package Name does not conform to Debian Requirements",
- 
 
 99 
               "Must be at least two characters long",
99 
               "Must start with two alphabetic characters",
 100 
               "Must start with an alphabetic character",
100 
               "Must only contain: (a-z) (0-9) and -",
 101 
               "Must only contain: (a-z) (0-9) and -",
101 
               "Provided Name: $::ScmBuildPackage");
 102 
               "Provided Name: $::ScmBuildPackage");
102 
    }
 103 
    }
103 
 
 104 
 
104 
    unless ( $::ScmBuildVersionFull =~ m/^[0-9][-+:.A-Za-z0-9]+$/ )
 105 
    unless ( $::ScmBuildVersionFull =~ m/^[0-9][-+:.A-Za-z0-9]+$/ )