Subversion Repositories DevTools

Rev

Rev 6177 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6177 Rev 6511
Line 225... Line 225...
225 
                    "Arguments: '@arguments'" );
 225 
                    "Arguments: '@arguments'" );
226 
    }
 226 
    }
227 
 
 227 
 
228 
    #
 228 
    #
229 
    #   Compatability values
 229 
    #   Compatability values
230 
    #       BUILDNAME       - A space seperated name of name, ver, project
 230 
    #       BUILDNAME               - A space seperated name of name, ver, project
231 
    #       BUILDVERSION    - Version number and project if available
 231 
    #       BUILDVERSION            - Version number and project if available
- 
 
 232 
    #       BUILDNAME_BASE_VERSION  - Version without the patch/ripple
232 
 
 233 
 
233 
    $result{BUILDNAME} = $result{BUILDNAME_PACKAGE};
 234 
    $result{BUILDNAME} = $result{BUILDNAME_PACKAGE};
234 
    $result{BUILDNAME} .= ' ' . $result{BUILDNAME_VERSION};
 235 
    $result{BUILDNAME} .= ' ' . $result{BUILDNAME_VERSION};
235 
    $result{BUILDNAME} .= ' ' . $result{BUILDNAME_PROJECT} if ($result{BUILDNAME_PROJECT}) ;
 236 
    $result{BUILDNAME} .= ' ' . $result{BUILDNAME_PROJECT} if ($result{BUILDNAME_PROJECT}) ;
236 
 
 237 
 
237 
    $result{BUILDVERSION} = $result{BUILDNAME_VERSION};
 238 
    $result{BUILDVERSION} = $result{BUILDNAME_VERSION};
238 
    $result{BUILDVERSION} .= '.' . $result{BUILDNAME_PROJECT} if ( $result{BUILDNAME_PROJECT} );
 239 
    $result{BUILDVERSION} .= '.' . $result{BUILDNAME_PROJECT} if ( $result{BUILDNAME_PROJECT} );
239 
 
 240 
 
- 
 
 241 
    $result{BUILDNAME_BASE_VERSION} = $result{BUILDNAME_VERSION};
- 
 
 242 
    $result{BUILDNAME_BASE_VERSION} =~ s~\.[0-9]+$~~;
- 
 
 243 
 
- 
 
 244 
 
240 
#    DebugDumpData ("BuildNameInfo", \%result);
 245 
#    DebugDumpData ("BuildNameInfo", \%result);
241 
    return \%result;
 246 
    return \%result;
242 
}
 247 
}
243 
 
 248 
 
244 
1;
 249 
1;