Various fixups for version.pm 0.9914

Programming / Compilers / PERL - Leon Timmermans [gmail.com] - 17 March 2016 19:51 UTC



###

diff --git a/MANIFEST b/MANIFEST
index f43dbdc..5a96d16 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -2921,6 +2921,7 @@ cpan/version/t/06noop.t Tests for version objects
cpan/version/t/07locale.t Tests for version objects
cpan/version/t/08_corelist.t Tests for version objects
cpan/version/t/09_list_util.t Tests for version objects
+cpan/version/t/10_lyon.t Tests for version objects
cpan/version/t/coretests.pm Tests for version objects
cpan/Win32API-File/buffers.h Win32API::File extension
cpan/Win32API-File/cFile.h Win32API::File extension
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index c392c16..b31d095 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1263,7 +1263,7 @@ use File::Glob qw(:case);
},

'version' => {
- 'DISTRIBUTION' => 'JPEACOCK/version-0.9909.tar.gz',
+ 'DISTRIBUTION' => 'JPEACOCK/version-0.9914.tar.gz',
'FILES' => q[cpan/version vutil.c vutil.h vxs.inc],
'EXCLUDED' => [
qr{^vutil/lib/},
diff --git a/Porting/cmpVERSION.pl b/Porting/cmpVERSION.pl
index 2a3bf81..38dcb12 100755
--- a/Porting/cmpVERSION.pl
+++ b/Porting/cmpVERSION.pl
@@ -91,6 +91,7 @@ my %skip;
'cpan/podlators/t/lib/Test/Podlators.pm', # just a test module
'cpan/podlators/t/lib/Test/RRA.pm', # just a test module
'cpan/podlators/t/lib/Test/RRA/Config.pm', # just a test module
+ 'cpan/version/t/coretests.pm', # just a test module
'dist/Attribute-Handlers/demo/MyClass.pm', # it's just demonstration code
'dist/Exporter/lib/Exporter/Heavy.pm',
'lib/Carp/Heavy.pm',
diff --git a/cpan/version/t/07locale.t b/cpan/version/t/07locale.t
index 22b9def..ee0c91c 100644
--- a/cpan/version/t/07locale.t
+++ b/cpan/version/t/07locale.t
@@ -51,7 +51,7 @@ SKIP: {
ok ($v == $ver, "Comparison to locale floating point");

TODO: { # Resolve https://rt.cpan.org/Ticket/Display.html?id=102272
- local $TODO = 'Fails for Perl 5.x.0 < 5.19.0';
+ local $TODO = 'Fails for Perl 5.x.0 < 5.19.0' if $] < 5.019000;
$ver = version->new($]);
is "$ver", "$]", 'Use PV for dualvars';
}
diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 86c33c9..b0106f0 100644
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -2980,6 +2980,10 @@ for more details on allowed version formats.
Perhaps the internals were modified directly in some way or
an arbitrary reference was blessed into the "version" class.

+=item alpha->numify() is lossy
+
+(W numeric) An alpha version can not be numified without losing information.
+
=item In '(*VERB...)', the '(' and '*' must be adjacent in regex;
marked by S<<-- HERE> in m/%s/

diff --git a/t/porting/customized.dat b/t/porting/customized.dat
index 57e44e6..8410d0b 100644
--- a/t/porting/customized.dat
+++ b/t/porting/customized.dat
@@ -61,5 +61,5 @@ Win32API::File cpan/Win32API-File/t/file.t 124e64aa77e755235eb297644a87fac5388d3
Win32API::File cpan/Win32API-File/t/tie.t 712ea7edd0cc805ce1c0b8172c01b03dd19b583d
Win32API::File cpan/Win32API-File/typemap 24bff088babeadac0873e8df390d1666d9d9db4a
autodie cpan/autodie/t/mkdir.t 9e70d2282a3cc7d76a78bf8144fccba20fb37dac
-version cpan/version/lib/version.pm d0923b895d57f1d669ae36fcf85c87b16db341d1
-version vutil.c 668f17ca43e2527645674d29ba772b86330d5663
+version cpan/version/lib/version.pm c25428bcfe61db6ce0c264b3916d8ee7980c398c
+version vutil.c 8162dcb371f65863161f4e7f5513d2ebf4285f99
diff --git a/vutil.c b/vutil.c
index e43d2b2..69c9ea1 100644
--- a/vutil.c
+++ b/vutil.c
@@ -31,7 +31,8 @@ Perl_prescan_version(pTHX_ const char *s, bool strict,
bool alpha = FALSE;
const char *d = s;

- PERL_ARGS_ASSERT_PRESCAN_VERSION; PERL_UNUSED_CONTEXT;
+ PERL_ARGS_ASSERT_PRESCAN_VERSION;
+ PERL_UNUSED_CONTEXT;

if (qv && isDIGIT(*d))
goto dotted_decimal_version;

130cad9 Various fixups for version.pm 0.9914
MANIFEST | 1 +
Porting/Maintainers.pl | 2 +-
Porting/cmpVERSION.pl | 1 +
cpan/version/t/07locale.t | 2 +-
pod/perldiag.pod | 4 ++++
t/porting/customized.dat | 4 ++--
vutil.c | 3 ++-
7 files changed, 12 insertions(+), 5 deletions(-)

Upstream: perl5.git.perl.org

  • Share