Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Make cover -test -nodelete work.

  • Loading branch information...
commit 3f61acf5b9ef72e678958a1b8509d9e8dc51a099 1 parent 6b76e77
@pjcj authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 bin/cover
View
4 bin/cover
@@ -29,7 +29,7 @@ my $Options =
add_uncoverable_point => [],
annotation => [],
coverage => [],
- delete => 0,
+ delete => undef,
delete_uncoverable_point => [],
gcov => $Config{gccversion},
ignore => [],
@@ -209,7 +209,7 @@ sub main
{
# TODO - make this a little robust
# system "$^X Makefile.PL" unless -e "Makefile";
- delete_db($dbname, @ARGV);
+ delete_db($dbname, @ARGV) unless defined $Options->{delete};
my $env_db_name = $dbname;
$env_db_name =~ s/\\/\\\\/g if $^O eq 'MSWin32';
my $extra = "";
Please sign in to comment.
Something went wrong with that request. Please try again.