allow supplying make options to imcover.perl and abort on make failure

diff --git a/imcover.perl b/imcover.perl
index 253122a3e7acdaef43809e48cd51c0d35d68e984..6a05efb42daf474a429d3c45440d33a3c7370415 100644 (file)
--- a/imcover.perl
+++ b/imcover.perl
@@ -8,7 +8,9 @@ use Getopt::Long;
 my @tests;
 my $verbose;
 my $nodc;
+my $make_opts = "";
 GetOptions("t|test=s" => \@tests,
+          "m=s" => \$make_opts,
           "n" => \$nodc,
           "v" => \$verbose)
   or die;
@@ -21,9 +23,9 @@ if (-f 'Makefile') {
 }
 run("cover -delete");
 run("perl Makefile.PL --coverage @ARGV")
-  and die;
-run("$make 'OTHERLDFLAGS=-ftest-coverage -fprofile-arcs'")
-  and die;
+  and die "Makefile.PL failed\n";
+run("$make $make_opts 'OTHERLDFLAGS=-ftest-coverage -fprofile-arcs'")
+  and die "build failed\n";
 
 {
   local $ENV{DEVEL_COVER_OPTIONS} = "-db," . getcwd() . "/cover_db,-coverage,statement,branch,condition,subroutine";
@@ -32,7 +34,8 @@ run("$make 'OTHERLDFLAGS=-ftest-coverage -fprofile-arcs'")
   if (@tests) {
     $makecmd .= " TEST_FILES='@tests'";
   }
-  run($makecmd);
+  run($makecmd)
+    and die "Test failed\n";
 }
 
 # build gcov files