Update version to 0.9916
authorJohn Peacock <jpeacock@cpan.org>
Sat, 19 Mar 2016 01:43:52 +0000 (21:43 -0400)
committerDavid Mitchell <davem@iabyn.com>
Sat, 19 Mar 2016 11:37:37 +0000 (11:37 +0000)
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/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
vutil.c

index 102e301..031118e 100755 (executable)
@@ -1263,7 +1263,7 @@ use File::Glob qw(:case);
     },
 
     'version' => {
-        'DISTRIBUTION' => 'JPEACOCK/version-0.9914.tar.gz',
+        'DISTRIBUTION' => 'JPEACOCK/version-0.9916.tar.gz',
         'FILES'        => q[cpan/version vutil.c vutil.h vxs.inc],
         'EXCLUDED' => [
             qr{^vutil/lib/},
index d20427c..2015618 100644 (file)
@@ -10,7 +10,7 @@ if ($] >= 5.015) {
 
 use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv);
 
-$VERSION = 0.9914;
+$VERSION = 0.9916;
 $CLASS = 'version';
 
 # avoid using Exporter
index dc769c2..62c1f22 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 
 use vars qw($VERSION $CLASS $STRICT $LAX);
 
-$VERSION = 0.9914;
+$VERSION = 0.9916;
 
 #--------------------------------------------------------------------------#
 # Version regexp components
index 4c1a23d..08e7ad1 100644 (file)
@@ -12,7 +12,7 @@ BEGIN {
         (File::Spec->splitpath($0))[0,1], 'coretests.pm'
     );
     require $coretests;
-    use_ok('version', 0.9914);
+    use_ok('version', 0.9916);
 }
 
 BaseTests("version","new","qv");
index ac0dea9..b2678e8 100644 (file)
@@ -13,7 +13,7 @@ BEGIN {
         (File::Spec->splitpath($0))[0,1], 'coretests.pm'
     );
     require $coretests;
-    use_ok("version", 0.9914);
+    use_ok("version", 0.9916);
     # If we made it this far, we are ok.
 }
 
index ed437be..da1f02e 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.9914, "Make sure we have the correct class";
+is $version::VERSION, 0.9916, "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 fad9139..330ab1a 100644 (file)
@@ -14,7 +14,7 @@ BEGIN {
 }
 
 BEGIN {
-    use version 0.9914;
+    use version 0.9916;
 }
 
 pass "Didn't get caught by the wrong DIE handler, which is a good thing";
index e9f7187..4d5a7fb 100644 (file)
@@ -7,7 +7,7 @@
 use Test::More qw/no_plan/;
 
 BEGIN {
-    use_ok('version', 0.9914);
+    use_ok('version', 0.9916);
 }
 
 my $v1 = version->new('1.2');
index ee0c91c..1a4dadf 100644 (file)
@@ -11,7 +11,7 @@ use Test::More tests => 8;
 use Config;
 
 BEGIN {
-    use_ok('version', 0.9914);
+    use_ok('version', 0.9916);
 }
 
 SKIP: {
index d8cd147..3cc8889 100644 (file)
@@ -5,7 +5,7 @@
 #########################
 
 use Test::More tests => 3;
-use_ok("version", 0.9914);
+use_ok("version", 0.9916);
 
 # do strict lax tests in a sub to isolate a package to test importing
 SKIP: {
index bb6d3ec..232a9c0 100644 (file)
@@ -4,7 +4,7 @@
 #########################
 
 use strict;
-use_ok("version", 0.9914);
+use_ok("version", 0.9916);
 use Test::More;
 
 BEGIN {
index 6c4f404..a7e4421 100644 (file)
@@ -52,5 +52,5 @@ Scalar-List-Utils cpan/Scalar-List-Utils/t/product.t 99bf424804f055b99ff2a18b7dc
 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 c25428bcfe61db6ce0c264b3916d8ee7980c398c
-version vutil.c 8162dcb371f65863161f4e7f5513d2ebf4285f99
+version cpan/version/lib/version.pm ff75e2076be10bd4c05133cd979fda0b38ca8653
+version vutil.c 6d7f036a394f25a3a5b4a4a1dafd2eba4ebc67e3
diff --git a/vutil.c b/vutil.c
index 69c9ea1..610c03c 100644 (file)
--- a/vutil.c
+++ b/vutil.c
@@ -901,7 +901,6 @@ Perl_vnormal(pTHX_ SV *vs)
 #endif
 {
     I32 i, len, digit;
-    bool alpha = FALSE;
     SV *sv;
     AV *av;
 
@@ -912,9 +911,6 @@ Perl_vnormal(pTHX_ SV *vs)
     if ( ! vs )
        Perl_croak(aTHX_ "Invalid version object");
 
-    if ( hv_exists(MUTABLE_HV(vs), "alpha", 5 ) )
-       alpha = TRUE;
-
     av = MUTABLE_AV(SvRV(*hv_fetchs(MUTABLE_HV(vs), "version", FALSE)));
 
     len = av_len(av);
@@ -1003,8 +999,6 @@ Perl_vcmp(pTHX_ SV *lhv, SV *rhv)
 {
     SSize_t i,l,m,r;
     I32 retval;
-    bool lalpha = FALSE;
-    bool ralpha = FALSE;
     I32 left = 0;
     I32 right = 0;
     AV *lav, *rav;
@@ -1019,13 +1013,9 @@ Perl_vcmp(pTHX_ SV *lhv, SV *rhv)
 
     /* get the left hand term */
     lav = MUTABLE_AV(SvRV(*hv_fetchs(MUTABLE_HV(lhv), "version", FALSE)));
-    if ( hv_exists(MUTABLE_HV(lhv), "alpha", 5 ) )
-       lalpha = TRUE;
 
     /* and the right hand term */
     rav = MUTABLE_AV(SvRV(*hv_fetchs(MUTABLE_HV(rhv), "version", FALSE)));
-    if ( hv_exists(MUTABLE_HV(rhv), "alpha", 5 ) )
-       ralpha = TRUE;
 
     l = av_len(lav);
     r = av_len(rav);