Hello community,
here is the log from the commit of package perl-version for openSUSE:Factory
checked in at 2016-03-16 10:33:54
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-version (Old)
and /work/SRC/openSUSE:Factory/.perl-version.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-version"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-version/perl-version.changes
2016-02-26 00:40:36.000000000 +0100
+++ /work/SRC/openSUSE:Factory/.perl-version.new/perl-version.changes
2016-03-16 10:33:55.000000000 +0100
@@ -1,0 +2,84 @@
+Tue Mar 8 11:23:03 UTC 2016 - co...@suse.com
+
+- updated to 0.9915
+ see /usr/share/doc/packages/perl-version/Changes
+
+ 2016-03-05 John Peacock <john.peac...@havurah-software.org>
+
+ * .hgtags:
+ Added tag 0.9915 for changeset dc1d08d9ee5c
+ [5b2cf3e1882d] [tip]
+
+ * flow: Merged <release> '0.9915' to <master> ('default').
+ [dc1d08d9ee5c] [0.9915]
+
+ * flow: Merged <release> '0.9915' to <develop> ('develop').
+ [a68f41046a12] <develop>
+
+ * flow: Closed <release> '0.9915'.
+ [898452696d61] <release/0.9915>
+
+ * Makefile.PL, README, lib/version.pm, lib/version/regex.pm, t/00impl-
+ pp.t, t/01base.t, t/02derived.t, t/03require.t, t/05sigdie.t,
+ t/06noop.t, t/07locale.t, t/08_corelist.t, t/09_list_util.t,
+ vperl/vpp.pm, vutil/lib/version/vxs.pm:
+ Prep for documentation-only release to CPAN
+ [7b7226db9d45] <release/0.9915>
+
+ * flow: Created branch 'release/0.9915'.
+ [476b405c963e] <release/0.9915>
+
+ 2016-02-24 John Peacock <john.peac...@havurah-software.org>
+
+ * .hgtags:
+ Added tag 0.9914 for changeset 16a529f3aab3
+ [6571f70630c1]
+
+ * flow: Merged <release> '0.9914' to <master> ('default').
+ [16a529f3aab3] [0.9914]
+
+ * flow: Merged <release> '0.9914' to <develop> ('develop').
+ [c870c13f6545] <develop>
+
+ * flow: Closed <release> '0.9914'.
+ [4d90e8da2284] <release/0.9914>
+
+ 2016-02-18 John Peacock <john.peac...@havurah-software.org>
+
+ * Makefile.PL, README, lib/version.pm, lib/version/regex.pm, t/00impl-
+ pp.t, t/01base.t, t/02derived.t, t/03require.t, t/05sigdie.t,
+ t/06noop.t, t/07locale.t, t/08_corelist.t, t/09_list_util.t,
+ vperl/vpp.pm, vutil/lib/version/vxs.pm:
+ Prep for release to CPAN
+ [76756591216f] <release/0.9914>
+
+ * flow: Created branch 'release/0.9914'.
+ [6c9706b0b31c] <release/0.9914>
+
+ 2016-02-17 John Peacock <john.peac...@havurah-software.org>
+
+ * flow: Merged <hotfix> '0.9913_01' to <develop> ('develop').
+ [87fd2c8420dd] <develop>
+
+ * .hgtags:
+ Added tag 0.9913_01 for changeset 81095ad53ee3
+ [8a7c575cc4c2]
+
+ * flow: Merged <hotfix> '0.9913_01' to <master> ('default').
+ [81095ad53ee3] [0.9913_01]
+
+ * flow: Closed <hotfix> '0.9913_01'.
+ [6c5f5883412e] <hotfix/0.9913_01>
+
+ * Makefile.PL, README, lib/version.pm, lib/version/regex.pm, t/00impl-
+ pp.t, t/01base.t, t/02derived.t, t/03require.t, t/05sigdie.t,
+ t/06noop.t, t/07locale.t, t/08_corelist.t, t/09_list_util.t,
+ t/10_lyon.t, t/coretests.pm, vperl/vpp.pm, vutil/lib/version/vxs.pm,
+ vutil/vutil.c:
+ Apply missed changeset from leont and prep for release
+ [fc08284a87cf] <hotfix/0.9913_01>
+
+ * flow: Created branch 'hotfix/0.9913_01'.
+ [24bd39aa58c2] <hotfix/0.9913_01>
+
+-------------------------------------------------------------------
Old:
----
version-0.9913.tar.gz
New:
----
version-0.9915.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-version.spec ++++++
--- /var/tmp/diff_new_pack.WweOtz/_old 2016-03-16 10:33:56.000000000 +0100
+++ /var/tmp/diff_new_pack.WweOtz/_new 2016-03-16 10:33:56.000000000 +0100
@@ -17,7 +17,7 @@
Name: perl-version
-Version: 0.9913
+Version: 0.9915
Release: 0
%define cpan_name version
Summary: Perl extension for Version Objects
++++++ version-0.9913.tar.gz -> version-0.9915.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/version-0.9913/Changes new/version-0.9915/Changes
--- old/version-0.9913/Changes 2016-02-17 04:43:55.000000000 +0100
+++ new/version-0.9915/Changes 2016-03-06 01:07:52.000000000 +0100
@@ -1,8 +1,86 @@
+2016-03-05 John Peacock <john.peac...@havurah-software.org>
+
+ * .hgtags:
+ Added tag 0.9915 for changeset dc1d08d9ee5c
+ [5b2cf3e1882d] [tip]
+
+ * flow: Merged <release> '0.9915' to <master> ('default').
+ [dc1d08d9ee5c] [0.9915]
+
+ * flow: Merged <release> '0.9915' to <develop> ('develop').
+ [a68f41046a12] <develop>
+
+ * flow: Closed <release> '0.9915'.
+ [898452696d61] <release/0.9915>
+
+ * Makefile.PL, README, lib/version.pm, lib/version/regex.pm, t/00impl-
+ pp.t, t/01base.t, t/02derived.t, t/03require.t, t/05sigdie.t,
+ t/06noop.t, t/07locale.t, t/08_corelist.t, t/09_list_util.t,
+ vperl/vpp.pm, vutil/lib/version/vxs.pm:
+ Prep for documentation-only release to CPAN
+ [7b7226db9d45] <release/0.9915>
+
+ * flow: Created branch 'release/0.9915'.
+ [476b405c963e] <release/0.9915>
+
+2016-02-24 John Peacock <john.peac...@havurah-software.org>
+
+ * .hgtags:
+ Added tag 0.9914 for changeset 16a529f3aab3
+ [6571f70630c1]
+
+ * flow: Merged <release> '0.9914' to <master> ('default').
+ [16a529f3aab3] [0.9914]
+
+ * flow: Merged <release> '0.9914' to <develop> ('develop').
+ [c870c13f6545] <develop>
+
+ * flow: Closed <release> '0.9914'.
+ [4d90e8da2284] <release/0.9914>
+
+2016-02-18 John Peacock <john.peac...@havurah-software.org>
+
+ * Makefile.PL, README, lib/version.pm, lib/version/regex.pm, t/00impl-
+ pp.t, t/01base.t, t/02derived.t, t/03require.t, t/05sigdie.t,
+ t/06noop.t, t/07locale.t, t/08_corelist.t, t/09_list_util.t,
+ vperl/vpp.pm, vutil/lib/version/vxs.pm:
+ Prep for release to CPAN
+ [76756591216f] <release/0.9914>
+
+ * flow: Created branch 'release/0.9914'.
+ [6c9706b0b31c] <release/0.9914>
+
+2016-02-17 John Peacock <john.peac...@havurah-software.org>
+
+ * flow: Merged <hotfix> '0.9913_01' to <develop> ('develop').
+ [87fd2c8420dd] <develop>
+
+ * .hgtags:
+ Added tag 0.9913_01 for changeset 81095ad53ee3
+ [8a7c575cc4c2]
+
+ * flow: Merged <hotfix> '0.9913_01' to <master> ('default').
+ [81095ad53ee3] [0.9913_01]
+
+ * flow: Closed <hotfix> '0.9913_01'.
+ [6c5f5883412e] <hotfix/0.9913_01>
+
+ * Makefile.PL, README, lib/version.pm, lib/version/regex.pm, t/00impl-
+ pp.t, t/01base.t, t/02derived.t, t/03require.t, t/05sigdie.t,
+ t/06noop.t, t/07locale.t, t/08_corelist.t, t/09_list_util.t,
+ t/10_lyon.t, t/coretests.pm, vperl/vpp.pm, vutil/lib/version/vxs.pm,
+ vutil/vutil.c:
+ Apply missed changeset from leont and prep for release
+ [fc08284a87cf] <hotfix/0.9913_01>
+
+ * flow: Created branch 'hotfix/0.9913_01'.
+ [24bd39aa58c2] <hotfix/0.9913_01>
+
2016-02-16 John Peacock <john.peac...@havurah-software.org>
* .hgtags:
Added tag 0.9913 for changeset f5eda39012f8
- [acfb12d302c3] [tip]
+ [acfb12d302c3]
* flow: Merged <release> '0.9913' to <master> ('default').
[f5eda39012f8] [0.9913]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/version-0.9913/META.json new/version-0.9915/META.json
--- old/version-0.9913/META.json 2016-02-17 04:43:54.000000000 +0100
+++ new/version-0.9915/META.json 2016-03-06 01:07:51.000000000 +0100
@@ -54,6 +54,6 @@
"url" : "https://bitbucket.org/jpeacock/version";
}
},
- "version" : "0.9913",
+ "version" : "0.9915",
"x_serialization_backend" : "JSON::PP version 2.27203"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/version-0.9913/META.yml new/version-0.9915/META.yml
--- old/version-0.9913/META.yml 2016-02-17 04:43:54.000000000 +0100
+++ new/version-0.9915/META.yml 2016-03-06 01:07:51.000000000 +0100
@@ -28,5 +28,5 @@
resources:
bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=version
repository: https://bitbucket.org/jpeacock/version
-version: '0.9913'
+version: '0.9915'
x_serialization_backend: 'CPAN::Meta::YAML version 0.012'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/version-0.9913/Makefile.PL
new/version-0.9915/Makefile.PL
--- old/version-0.9913/Makefile.PL 2016-02-17 04:43:54.000000000 +0100
+++ new/version-0.9915/Makefile.PL 2016-03-06 01:07:51.000000000 +0100
@@ -52,7 +52,7 @@
'parent' => 0.221,
);
- WriteMakefile( VERSION => '0.9913',
+ WriteMakefile( VERSION => '0.9915',
NAME => 'version',
LICENSE => 'perl',
MIN_PERL_VERSION=> 5.006002,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/version-0.9913/README new/version-0.9915/README
--- old/version-0.9913/README 2016-02-17 04:43:54.000000000 +0100
+++ new/version-0.9915/README 2016-03-06 01:07:51.000000000 +0100
@@ -1,4 +1,4 @@
-version 0.9913
+version 0.9915
==================================
Object oriented versions for all Perl releases from 5.6.2 onward. Replaces
@@ -26,6 +26,43 @@
5.10.0 to segfault. As long as some module calls 'use version', then the
replacement code will take effect and Perl will not crash.
+
+Major Changes in 0.9915 - 2016-03-05
+=========================================
+Clarify details of Lyon Compromise:
+ https://gist.github.com/dagolden/9559280
+
+- version comparision should be done irrespective of the presence of
+ underscores in the string used to initialize the version object
+
+- underscore should no longer be used as a tuple separator in vstrings or
+ vstring-like strings; vstrings are converted to tuples by splitting into
+ *characters* (not bytes) and converting to codepoints; any elements after
+ the first must be in the range 0-999
+
+- numify/normal should produce a standarized string representation without
+ underscores
+
+- stringify should produce the best possible representation of the value
+ used to initialize the version object; it should include underscores
+ only if the initializing value was a non-vstring string.
+
+- floating point numbers used as initializers are converted to a decimal
+ string form at the precision limit of the architecture; people will be
+ warned about this in the documentation
+
+Major Changes in 0.9914 - 2016-02-18
+=========================================
+Release non-alpha version to CPAN
+
+Major Changes in 0.9913_01 - 2016-02-17
+=========================================
+Apply one additional changeset from leont to handle magic v-strings
+
+Major Changes in 0.9913 - 2016-02-16
+=========================================
+Release non-alpha version to CPAN
+
Major Changes in 0.9912_03 - 2016-01-21
=========================================
Apply two pull requests from bitbucket:
@@ -373,17 +410,12 @@
DEPENDENCIES
-The same C compiler used to build Perl (or not). Module::Build 0.2611
-or better.
-
-Module::Build installs fine under 5.005_03 or better, though the optional
-dependency Archive::Tar doesn't. If you install Module::Build without any
-of the optional dependencies, you can safely install version.pm.
+The same C compiler used to build Perl (or not).
COPYRIGHT AND LICENCE
This module can be distributed under the same terms as Perl.
-Copyright (C) 2004-2010 John Peacock
+Copyright (C) 2004-2015 John Peacock
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/version-0.9913/lib/version/regex.pm
new/version-0.9915/lib/version/regex.pm
--- old/version-0.9913/lib/version/regex.pm 2016-02-17 04:43:54.000000000
+0100
+++ new/version-0.9915/lib/version/regex.pm 2016-03-06 01:07:51.000000000
+0100
@@ -4,7 +4,7 @@
use vars qw($VERSION $CLASS $STRICT $LAX);
-$VERSION = 0.9913;
+$VERSION = 0.9915;
#--------------------------------------------------------------------------#
# Version regexp components
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/version-0.9913/lib/version.pm
new/version-0.9915/lib/version.pm
--- old/version-0.9913/lib/version.pm 2016-02-17 04:43:54.000000000 +0100
+++ new/version-0.9915/lib/version.pm 2016-03-06 01:07:51.000000000 +0100
@@ -10,7 +10,7 @@
use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv);
-$VERSION = 0.9913;
+$VERSION = 0.9915;
$CLASS = 'version';
# !!!!Delete this next block completely when adding to Perl core!!!!
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/version-0.9913/t/00impl-pp.t
new/version-0.9915/t/00impl-pp.t
--- old/version-0.9913/t/00impl-pp.t 2016-02-17 04:43:54.000000000 +0100
+++ new/version-0.9915/t/00impl-pp.t 2016-03-06 01:07:51.000000000 +0100
@@ -12,7 +12,7 @@
(File::Spec->splitpath($0))[0,1], 'coretests.pm'
);
require $coretests;
- use_ok('version::vpp', 0.9913);
+ use_ok('version::vpp', 0.9915);
}
BaseTests("version::vpp","new","qv");
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/version-0.9913/t/01base.t
new/version-0.9915/t/01base.t
--- old/version-0.9913/t/01base.t 2016-02-17 04:43:54.000000000 +0100
+++ new/version-0.9915/t/01base.t 2016-03-06 01:07:51.000000000 +0100
@@ -12,7 +12,7 @@
(File::Spec->splitpath($0))[0,1], 'coretests.pm'
);
require $coretests;
- use_ok('version', 0.9913);
+ use_ok('version', 0.9915);
}
BaseTests("version","new","qv");
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/version-0.9913/t/02derived.t
new/version-0.9915/t/02derived.t
--- old/version-0.9913/t/02derived.t 2016-02-17 04:43:54.000000000 +0100
+++ new/version-0.9915/t/02derived.t 2016-03-06 01:07:51.000000000 +0100
@@ -13,7 +13,7 @@
(File::Spec->splitpath($0))[0,1], 'coretests.pm'
);
require $coretests;
- use_ok("version", 0.9913);
+ use_ok("version", 0.9915);
# If we made it this far, we are ok.
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/version-0.9913/t/03require.t
new/version-0.9915/t/03require.t
--- old/version-0.9913/t/03require.t 2016-02-17 04:43:54.000000000 +0100
+++ new/version-0.9915/t/03require.t 2016-03-06 01:07:51.000000000 +0100
@@ -17,7 +17,7 @@
# 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.9913, "Make sure we have the correct class";
+is $version::VERSION, 0.9915, "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()");
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/version-0.9913/t/05sigdie.t
new/version-0.9915/t/05sigdie.t
--- old/version-0.9913/t/05sigdie.t 2016-02-17 04:43:54.000000000 +0100
+++ new/version-0.9915/t/05sigdie.t 2016-03-06 01:07:51.000000000 +0100
@@ -14,7 +14,7 @@
}
BEGIN {
- use version 0.9913;
+ use version 0.9915;
}
pass "Didn't get caught by the wrong DIE handler, which is a good thing";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/version-0.9913/t/06noop.t
new/version-0.9915/t/06noop.t
--- old/version-0.9913/t/06noop.t 2016-02-17 04:43:54.000000000 +0100
+++ new/version-0.9915/t/06noop.t 2016-03-06 01:07:51.000000000 +0100
@@ -7,7 +7,7 @@
use Test::More qw/no_plan/;
BEGIN {
- use_ok('version', 0.9913);
+ use_ok('version', 0.9915);
}
my $v1 = version->new('1.2');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/version-0.9913/t/07locale.t
new/version-0.9915/t/07locale.t
--- old/version-0.9913/t/07locale.t 2016-02-17 04:43:54.000000000 +0100
+++ new/version-0.9915/t/07locale.t 2016-03-06 01:07:51.000000000 +0100
@@ -11,7 +11,7 @@
use Config;
BEGIN {
- use_ok('version', 0.9913);
+ use_ok('version', 0.9915);
}
SKIP: {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/version-0.9913/t/08_corelist.t
new/version-0.9915/t/08_corelist.t
--- old/version-0.9913/t/08_corelist.t 2016-02-17 04:43:54.000000000 +0100
+++ new/version-0.9915/t/08_corelist.t 2016-03-06 01:07:51.000000000 +0100
@@ -5,7 +5,7 @@
#########################
use Test::More tests => 3;
-use_ok("version", 0.9913);
+use_ok("version", 0.9915);
# do strict lax tests in a sub to isolate a package to test importing
SKIP: {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/version-0.9913/t/09_list_util.t
new/version-0.9915/t/09_list_util.t
--- old/version-0.9913/t/09_list_util.t 2016-02-17 04:43:54.000000000 +0100
+++ new/version-0.9915/t/09_list_util.t 2016-03-06 01:07:51.000000000 +0100
@@ -4,7 +4,7 @@
#########################
use strict;
-use_ok("version", 0.9913);
+use_ok("version", 0.9915);
use Test::More;
BEGIN {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/version-0.9913/t/10_lyon.t
new/version-0.9915/t/10_lyon.t
--- old/version-0.9913/t/10_lyon.t 2016-01-02 15:44:39.000000000 +0100
+++ new/version-0.9915/t/10_lyon.t 2016-02-18 04:24:37.000000000 +0100
@@ -39,7 +39,6 @@
is(version->new(1.0203)->stringify, "1.0203");
is(version->new(1.02_03)->stringify, "1.0203");
is(version->new(v1.2.30)->stringify, "v1.2.30");
-TODO: {
- local $TODO = 'Stringification of dotted decimal alpha versions is
ambiguous';
+if ($] >= 5.008_001) {
is(version->new(v1.2.3_0)->stringify, "v1.2.30");
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/version-0.9913/t/coretests.pm
new/version-0.9915/t/coretests.pm
--- old/version-0.9913/t/coretests.pm 2016-01-02 15:44:39.000000000 +0100
+++ new/version-0.9915/t/coretests.pm 2016-02-18 04:24:37.000000000 +0100
@@ -347,9 +347,9 @@
if $] lt 5.008_001;
$version = $CLASS->$method(v1.2.3_4);
$DB::single = 1;
- is($version, "v1.2.3_4", '"$version" eq "v1.2.3_4"');
+ is($version, "v1.2.34", '"$version" eq "v1.2.34"');
$version = $CLASS->$method(eval "v1.2.3_4");
- is($version, "v1.2.3_4", '"$version" eq "v1.2.3_4" (from eval)');
+ is($version, "v1.2.34", '"$version" eq "v1.2.34" (from eval)');
}
# trailing zero testing (reported by Andreas Koenig).
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/version-0.9913/vperl/vpp.pm
new/version-0.9915/vperl/vpp.pm
--- old/version-0.9913/vperl/vpp.pm 2016-02-17 04:43:54.000000000 +0100
+++ new/version-0.9915/vperl/vpp.pm 2016-03-06 01:07:51.000000000 +0100
@@ -123,7 +123,7 @@
use Config;
use vars qw($VERSION $CLASS @ISA $LAX $STRICT $WARN_CATEGORY);
-$VERSION = 0.9913;
+$VERSION = 0.9915;
$CLASS = 'version::vpp';
if ($] > 5.015) {
warnings::register_categories(qw/version/);
@@ -924,6 +924,7 @@
$magic = $magic->MOREMAGIC;
}
}
+ $tvalue =~ tr/_//d;
return $tvalue;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/version-0.9913/vutil/lib/version/vxs.pm
new/version-0.9915/vutil/lib/version/vxs.pm
--- old/version-0.9913/vutil/lib/version/vxs.pm 2016-02-17 04:43:54.000000000
+0100
+++ new/version-0.9915/vutil/lib/version/vxs.pm 2016-03-06 01:07:51.000000000
+0100
@@ -5,7 +5,7 @@
use strict;
use vars qw(@ISA $VERSION $CLASS );
-$VERSION = 0.9913;
+$VERSION = 0.9915;
$CLASS = 'version::vxs';
eval {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/version-0.9913/vutil/vutil.c
new/version-0.9915/vutil/vutil.c
--- old/version-0.9913/vutil/vutil.c 2016-02-17 04:43:54.000000000 +0100
+++ new/version-0.9915/vutil/vutil.c 2016-02-18 04:24:37.000000000 +0100
@@ -525,7 +525,16 @@
if ( mg ) { /* already a v-string */
const STRLEN len = mg->mg_len;
const char * const version = (const char*)mg->mg_ptr;
+ char *raw, *under;
+ static const char underscore[] = "_";
sv_setpvn(rv,version,len);
+ raw = SvPV_nolen(rv);
+ under = ninstr(raw, raw+len, underscore, underscore + 1);
+ if (under) {
+ Move(under + 1, under, raw + len - under - 1, char);
+ SvCUR(rv)--;
+ *SvEND(rv) = '\0';
+ }
/* this is for consistency with the pure Perl class */
if ( isDIGIT(*version) )
sv_insert(rv, 0, 0, "v", 1);
