Subject: | Trial version strangeness |
Date: | Mon, 9 May 2016 17:09:38 +0200 |
To: | bug-Module-Metadata [...] rt.cpan.org |
From: | Mark Lawrence <nomad [...] null.net> |
It appears that Module::Metadata mangles the -TRIAL alternative format
of $VERSION $UNDERSCORE $INTEGER:
#!/usr/bin/env perl
use strict;
use warnings;
use Module::Metadata;
use Data::Dumper;
our $VERSION = '0.0.1_1';
print Dumper( Module::Metadata->new_from_file($0) );
#$VAR1 = bless(
# {
# 'module' => 'main',
# 'pod' => {},
# 'versions' => {
# 'main' => bless(
# {
# 'original' => '0.0.1_1',
# 'qv' => 1,
# 'version' => [ 0, 0, 11 ],
# 'alpha' => 1
# },
# 'version'
# )
# },
# 'pod_headings' => [],
# 'version' => $VAR1->{'versions'}{'main'},
# 'inc' => undef,
# 'filename' => '/home/mark/src/optargs2/x',
# 'packages' => [ 'main' ],
# 'collect_pod' => undef
# },
# 'Module::Metadata'
#);
[ 0, 0, 11 ] is certainly not '0.0.1_1' and I know Module::Build at
least is using the arrayref result in preference to the original.
--
Mark Lawrence