Permalink
Browse files

Make cover -test -nodelete work.

  • Loading branch information...
1 parent 6b76e77 commit 3f61acf5b9ef72e678958a1b8509d9e8dc51a099 @pjcj committed Nov 24, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 bin/cover
View
@@ -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 = "";

0 comments on commit 3f61acf

Please sign in to comment.