RT #119447: Version comparison does not match version module behavior.

[briandfoy]

From VDB in #119447 on rt.cpan.org:

Consider test program:

#!/usr/bin/perl

use strict;
use warnings;
use version 0.77;
use Perl::Version;
use Test::More;

my $v1 = 'v0.10.1_01';
my $v2 = 'v0.10.2';

is( Perl::Version->new( $v1 ) <=> $v2, version->parse( $v1 ) <=> $v2 );

done_testing;

exit( 0 );

With version 0.9912, it passes:

ok 1
1..1

With version 0.9913 (an later), it fails:

not ok 1
#   Failed test at test.t line 12.
#          got: '-1'
#     expected: '1'
1..1
# Looks like you failed 1 test of 1.

version 0.9912 interprets 'v0.10.1_01' as 'v0.10.1.1' (+alpha flag), but version 0.9913 interprets it is 'v0.10.101' (+alpha flag).

The change in version module is intentional (I guess it is because Perl interprets v-string v0.10.1_01 as v0.10.101) so it unlikely to be reverted. That means Perl::Version should adopt new version behavior to be compatible with version module.

[briandfoy]

I added t/99.rt-119447.t to check this. The Perl::Version module is acting correctly. The version of v0.10.1_01 is less than v0.10.2.

As you say this is a problem in version.pm, but Perl::Version is correct. If people want version.pm semantics, they can use version.pm.