Subversion Repositories DevTools

Rev

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

Rev 7306 Rev 7322
Line 245... Line 245...
245 
                    "Arguments: '@arguments'" );
 245 
                    "Arguments: '@arguments'" );
246 
    }
 246 
    }
247 
 
 247 
 
248 
    #
 248 
    #
249 
    #   Compatability values
 249 
    #   Compatability values
250 
    #       BUILDNAME       - A space seperated name of name, ver, project
 250 
    #       BUILDNAME               - A space seperated name of name, ver, project
251 
    #       BUILDVERSION    - Version number and project if available
 251 
    #       BUILDVERSION            - Version number and project if available
- 
 
 252 
    #       BUILDNAME_BASE_VERSION  - Version without the patch/ripple
252 
 
 253 
 
253 
    $result{BUILDNAME} = $result{BUILDNAME_PACKAGE};
 254 
    $result{BUILDNAME} = $result{BUILDNAME_PACKAGE};
254 
    $result{BUILDNAME} .= ' ' . $result{BUILDNAME_VERSION};
 255 
    $result{BUILDNAME} .= ' ' . $result{BUILDNAME_VERSION};
255 
    $result{BUILDNAME} .= ' ' . $result{BUILDNAME_PROJECT} if ($result{BUILDNAME_PROJECT}) ;
 256 
    $result{BUILDNAME} .= ' ' . $result{BUILDNAME_PROJECT} if ($result{BUILDNAME_PROJECT}) ;
256 
 
 257 
 
257 
    $result{BUILDVERSION} = $result{BUILDNAME_VERSION};
 258 
    $result{BUILDVERSION} = $result{BUILDNAME_VERSION};
258 
    $result{BUILDVERSION} .= '.' . $result{BUILDNAME_PROJECT} if ( $result{BUILDNAME_PROJECT} );
 259 
    $result{BUILDVERSION} .= '.' . $result{BUILDNAME_PROJECT} if ( $result{BUILDNAME_PROJECT} );
259 
 
 260 
 
- 
 
 261 
    $result{BUILDNAME_BASE_VERSION} = $result{BUILDNAME_VERSION};
- 
 
 262 
    $result{BUILDNAME_BASE_VERSION} =~ s~\.[0-9]+$~~;
- 
 
 263 
 
- 
 
 264 
 
260 
#    DebugDumpData ("BuildNameInfo", \%result);
 265 
#    DebugDumpData ("BuildNameInfo", \%result);
261 
    return \%result;
 266 
    return \%result;
262 
}
 267 
}
263 
 
 268 
 
264 
1;
 269 
1;