From: Tony Cook <tony@develop-help.com>
Date: Tue, 16 Feb 2016 09:30:35 +0000 (+1100)
Subject: allow imcover to use a non-default perl
X-Git-Tag: v1.004_001~24
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/a6f7bffefee7c8b1c8bf22e3dda977bd3ec6efbf

allow imcover to use a non-default perl
---

diff --git a/imcover.perl b/imcover.perl
index 09db97a8..ed865893 100644
--- a/imcover.perl
+++ b/imcover.perl
@@ -26,7 +26,7 @@ if ($do_build) {
     run("$make clean");
   }
   run("cover -delete");
-  run("perl Makefile.PL --coverage @ARGV")
+  run("$^X Makefile.PL --coverage @ARGV")
     and die "Makefile.PL failed\n";
   run("$make $make_opts 'OTHERLDFLAGS=-ftest-coverage -fprofile-arcs'")
     and die "build failed\n";
@@ -68,6 +68,8 @@ for my $filename (keys %$mani) {
   }
 }
 
+my $gcov2perl = $Config{sitebin} . "/gcov2perl";
+
 for my $path (keys %paths) {
   if ($path) {
     run("cd $path ; gcov -abc @{$paths{$path}} ; cd ..");
@@ -77,7 +79,7 @@ for my $path (keys %paths) {
   }
   my $dir = $path ? $path : '.';
   for my $file (@{$paths{$path}}) {
-    run("gcov2perl $dir/$file.gcov");
+    run("$gcov2perl $dir/$file.gcov");
   }
 }