Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix cover -test covering all the test files too.

This is a regression fixed by Larry Leszczynski (rt 65920).
  • Loading branch information...
commit 1216bd0ab1b879c76159fa6723a65a1aab2f2afd 1 parent 69ebe6c
@pjcj authored
Showing with 8 additions and 8 deletions.
  1. +8 −8 lib/Devel/Cover.pm
View
16 lib/Devel/Cover.pm
@@ -296,6 +296,13 @@ sub import
warn __PACKAGE__ . ": Unknown option $_ ignored\n";
}
+ if ($blib)
+ {
+ eval "use blib";
+ for (@INC) { $_ = $1 if /(.*)/ } # Die tainting.
+ push @Ignore, "^t/", '\\.t$', '^test\\.pl$';
+ }
+
my $ci = $^O eq "MSWin32";
@Select_re = map qr/$_/, @Select;
@Ignore_re = map qr/$_/, @Ignore;
@@ -323,14 +330,7 @@ sub import
$DB = $1 if abs_path($DB) =~ /(.*)/;
Devel::Cover::DB->delete($DB) unless $Merge;
- if ($blib)
- {
- eval "use blib";
- for (@INC) { $_ = $1 if /(.*)/ } # Die tainting.
- push @Ignore, "^t/", '\\.t$', '^test\\.pl$';
- }
-
- %Files = (); # start gathering file information from scratch
+ %Files = (); # start gathering file information from scratch
for my $c (Devel::Cover::DB->new->criteria)
{
Please sign in to comment.
Something went wrong with that request. Please try again.