Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Bah - rounding errors.

  • Loading branch information...
commit ff97a3f886a8c9890faceaf812e4e4ebe8db4320 1 parent 28b12c9
@pjcj authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/Devel/Cover/Test.pm
View
4 lib/Devel/Cover/Test.pm
@@ -216,8 +216,8 @@ sub run_test
return;
}
- my $version = int(($] - 5) * 1000);
- if ($version %2 && $version < 16)
+ my $version = int(($] - 5) * 1000 + 0.5);
+ if ($version % 2 && $version < 16)
{
Test::plan tests => 1;
Test::skip("Perl version $] is an obsolete development version", 1);
Please sign in to comment.
Something went wrong with that request. Please try again.