VersionParser::normalized_version: Don't use _version_split, use the values from methods instead

This commit is contained in:
Brian Fraser
2012-07-12 23:15:01 -03:00
parent fdcc9a2290
commit c5555234c1
2 changed files with 20 additions and 5 deletions

View File

@@ -94,8 +94,9 @@ sub _split_version {
# 50120
sub normalized_version {
my ( $self ) = @_;
my @version_parts = map { $_ || 0 } $self->_split_version( $self->version );
my $result = sprintf('%d%02d%02d', @version_parts);
my $result = sprintf('%d%02d%02d', map { $_ || 0 } $self->major,
$self->minor,
$self->revision);
PTDEBUG && _d($self->version, 'normalizes to', $result);
return $result;
}