Upgrade version from version 0.9916 to 0.9917 blead
authorSteve Hay <steve.m.hay@googlemail.com>
Tue, 28 Jun 2016 13:18:30 +0000 (14:18 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Tue, 28 Jun 2016 13:18:30 +0000 (14:18 +0100)
13 files changed:
Porting/Maintainers.pl
cpan/version/lib/version.pm
cpan/version/lib/version/regex.pm
cpan/version/t/01base.t
cpan/version/t/02derived.t
cpan/version/t/03require.t
cpan/version/t/04strict_lax.t
cpan/version/t/05sigdie.t
cpan/version/t/06noop.t
cpan/version/t/07locale.t
cpan/version/t/08_corelist.t
cpan/version/t/09_list_util.t
t/porting/customized.dat

index 41188e2..f97cec1 100755 (executable)
@@ -1217,7 +1217,7 @@ use File::Glob qw(:case);
     },
 
     'version' => {
-        'DISTRIBUTION' => 'JPEACOCK/version-0.9916.tar.gz',
+        'DISTRIBUTION' => 'JPEACOCK/version-0.9917.tar.gz',
         'FILES'        => q[cpan/version vutil.c vutil.h vxs.inc],
         'EXCLUDED' => [
             qr{^vutil/lib/},
index 2015618..36d130f 100644 (file)
@@ -10,7 +10,7 @@ if ($] >= 5.015) {
 
 use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv);
 
-$VERSION = 0.9916;
+$VERSION = 0.9917;
 $CLASS = 'version';
 
 # avoid using Exporter
index 62c1f22..d635c38 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 
 use vars qw($VERSION $CLASS $STRICT $LAX);
 
-$VERSION = 0.9916;
+$VERSION = 0.9917;
 
 #--------------------------------------------------------------------------#
 # Version regexp components
@@ -81,7 +81,7 @@ $STRICT =
 # decimal-point
 
 my $LAX_DECIMAL_VERSION =
-    qr/ $LAX_INTEGER_PART (?: \. | $FRACTION_PART $LAX_ALPHA_PART? )?
+    qr/ $LAX_INTEGER_PART (?: $FRACTION_PART | \. )? $LAX_ALPHA_PART?
        |
        $FRACTION_PART $LAX_ALPHA_PART?
     /x;
@@ -106,7 +106,7 @@ my $LAX_DOTTED_DECIMAL_VERSION =
 # of return values from ExtUtils::MM->parse_version
 
 $LAX =
-    qr/ undef | $LAX_DECIMAL_VERSION | $LAX_DOTTED_DECIMAL_VERSION /x;
+    qr/ undef | $LAX_DOTTED_DECIMAL_VERSION | $LAX_DECIMAL_VERSION /x;
 
 #--------------------------------------------------------------------------#
 
index 08e7ad1..8e5ab71 100644 (file)
@@ -12,7 +12,7 @@ BEGIN {
         (File::Spec->splitpath($0))[0,1], 'coretests.pm'
     );
     require $coretests;
-    use_ok('version', 0.9916);
+    use_ok('version', 0.9917);
 }
 
 BaseTests("version","new","qv");
index b2678e8..fb77270 100644 (file)
@@ -13,7 +13,7 @@ BEGIN {
         (File::Spec->splitpath($0))[0,1], 'coretests.pm'
     );
     require $coretests;
-    use_ok("version", 0.9916);
+    use_ok("version", 0.9917);
     # If we made it this far, we are ok.
 }
 
index da1f02e..6a968a5 100644 (file)
@@ -17,7 +17,7 @@ BEGIN {
 # Don't want to use, because we need to make sure that the import doesn't
 # fire just yet (some code does this to avoid importing qv() and delare()).
 require_ok("version");
-is $version::VERSION, 0.9916, "Make sure we have the correct class";
+is $version::VERSION, 0.9917, "Make sure we have the correct class";
 ok(!"main"->can("qv"), "We don't have the imported qv()");
 ok(!"main"->can("declare"), "We don't have the imported declare()");
 
index 25c1dde..298fcf7 100644 (file)
@@ -13,6 +13,14 @@ SKIP: {
     strict_lax_tests();
     is ref($version::LAX), 'Regexp', 'Can see $version::LAX '.$version::LAX ;
     is ref($version::STRICT), 'Regexp', 'Can see $version::STRICT '.$version::STRICT;
+    { # https://rt.cpan.org/Ticket/Display.html?id=114712
+        my ($v) = ( "snapshot-1.2.3ga-001-432" =~ /($version::LAX)/ );
+        is $v, '1.2.3', "Extract just the version: $v";
+        ($v) = ( "snapshot-1.2ga-001-432" =~ /($version::LAX)/ );
+        is $v, '1.2', "Extract just the version: $v";
+        ($v) = ( "snapshot-v1.2.3ga-001-432" =~ /($version::STRICT)/ );
+        is $v, 'v1.2.3', "Extract just the version: $v";
+    }
 }
 
 
index 330ab1a..6776adc 100644 (file)
@@ -14,7 +14,7 @@ BEGIN {
 }
 
 BEGIN {
-    use version 0.9916;
+    use version 0.9917;
 }
 
 pass "Didn't get caught by the wrong DIE handler, which is a good thing";
index 4d5a7fb..f118786 100644 (file)
@@ -7,7 +7,7 @@
 use Test::More qw/no_plan/;
 
 BEGIN {
-    use_ok('version', 0.9916);
+    use_ok('version', 0.9917);
 }
 
 my $v1 = version->new('1.2');
index 1a4dadf..1dcc6db 100644 (file)
@@ -11,7 +11,7 @@ use Test::More tests => 8;
 use Config;
 
 BEGIN {
-    use_ok('version', 0.9916);
+    use_ok('version', 0.9917);
 }
 
 SKIP: {
index 3cc8889..4678c14 100644 (file)
@@ -5,7 +5,7 @@
 #########################
 
 use Test::More tests => 3;
-use_ok("version", 0.9916);
+use_ok("version", 0.9917);
 
 # do strict lax tests in a sub to isolate a package to test importing
 SKIP: {
index 232a9c0..6e94839 100644 (file)
@@ -4,7 +4,7 @@
 #########################
 
 use strict;
-use_ok("version", 0.9916);
+use_ok("version", 0.9917);
 use Test::More;
 
 BEGIN {
index 69fa62d..6dcb150 100644 (file)
@@ -19,4 +19,4 @@ Scalar-List-Utils cpan/Scalar-List-Utils/ListUtil.xs 362a247c65878265fd8acae607b
 Socket cpan/Socket/Socket.pm 98e38176d745c38282907f391c077298f5a3d0ba
 Socket cpan/Socket/Socket.xs edd4fed212785f11c5c2095a75941dad27d586d9
 autodie cpan/autodie/t/mkdir.t 9e70d2282a3cc7d76a78bf8144fccba20fb37dac
-version cpan/version/lib/version.pm ff75e2076be10bd4c05133cd979fda0b38ca8653
+version cpan/version/lib/version.pm a032a751524bdd07a93c945d2a1703abe7ad8ef0