Various fixups for version.pm 0.9914
authorLeon Timmermans <fawaka@gmail.com>
Fri, 18 Mar 2016 00:44:41 +0000 (01:44 +0100)
committerRicardo Signes <rjbs@cpan.org>
Fri, 18 Mar 2016 00:51:30 +0000 (20:51 -0400)
MANIFEST
Porting/Maintainers.pl
Porting/cmpVERSION.pl
cpan/version/t/07locale.t
pod/perldiag.pod
t/porting/customized.dat
vutil.c

index f43dbdc..5a96d16 100644 (file)
--- 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
index c392c16..b31d095 100755 (executable)
@@ -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/},
index 2a3bf81..38dcb12 100755 (executable)
@@ -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',
index 22b9def..ee0c91c 100644 (file)
@@ -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';
         }
index 86c33c9..b0106f0 100644 (file)
@@ -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/
 
index 57e44e6..8410d0b 100644 (file)
@@ -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 (file)
--- 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;