diff options
Diffstat (limited to 't/op/ver.t')
| -rwxr-xr-x | t/op/ver.t | 8 |
1 files changed, 2 insertions, 6 deletions
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; |