Bump version number to 5.10.0.

p4raw-id: //depot/perl@31799

2 files changed, 7 insertions, 6 deletions

diff --git a/t/comp/use.t b/t/comp/use.t
index e66c4a39b5..41f3bde764 100755
--- a/t/comp/use.t
+++ b/t/comp/use.t
@@ -195,6 +195,11 @@ foreach my $index (-3..+3) {
 	    if ($index < 0) {
 		# Jiggle one of the parts down
 		--$parts[-$index - 1];
+		if ($parts[-$index - 1] < 0) {
+		    # perl's version number ends with '.0'
+		    $parts[-$index - 1] = 0;
+		    $parts[-$index - 2] -= 2;
+		}
 	    } else {
 		# Jiggle one of the parts up
 		++$parts[$index - 1];
diff --git a/t/op/ver.t b/t/op/ver.t
index 759104a7d6..d6b93e0075 100755
--- a/t/op/ver.t
+++ b/t/op/ver.t
@@ -203,7 +203,7 @@ is(v200, eval( "v200"), 'v200 eq "v200"'        );
 is(v200, eval("+v200"), 'v200 eq eval("+v200")' );
 
 # Tests for string/numeric value of $] itself
-my ($revision,$version,$subversion) = split '\.', sprintf("%vd",$^V);
+my ($revision,$version,$subversion) = split /\./, sprintf("%vd",$^V);
 
 # $^V always displays the leading 'v' but we don't want that here
 $revision =~ s/^v//;
@@ -217,11 +217,7 @@ my $v = sprintf("%d.%.3d%.3d",$revision,$version,$subversion);
 print "# v = '$v'\n";
 print "# ] = '$]'\n";
 
-$v =~ s/000$// if $subversion == 0;
-
-print "# v = '$v'\n";
-
-ok( $v eq "$]", qq{\$^V eq "\$]"});
+is( $v, "$]", qq{\$^V eq "\$]"});
 
 $v = $revision + $version/1000 + $subversion/1000000;