From a9acc29eaa1af123b2e1ecd6c3fa859dbcd1710b Mon Sep 17 00:00:00 2001
From: Julian FIOL <julian.fiol@biblibre.com>
Date: Wed, 15 Apr 2015 10:51:16 +0200
Subject: [PATCH] Bug 13899 : Add changes as asked in Comment 5

---
 C4/Installer/PerlDependencies.pm |  6 ++++++
 misc/devel/coverage.pl           | 22 ++++++++--------------
 2 files changed, 14 insertions(+), 14 deletions(-)

diff --git a/C4/Installer/PerlDependencies.pm b/C4/Installer/PerlDependencies.pm
index 34cd8b5..ce44027 100644
--- a/C4/Installer/PerlDependencies.pm
+++ b/C4/Installer/PerlDependencies.pm
@@ -742,6 +742,12 @@ our $PERL_DEPS = {
         'required' => '0',
         'min_ver'  => '5.61',
     },
+    'Devel::Cover' => {
+        'usage'    => 'Test code coverage',
+        'required' => '0',
+        'min_ver'  => '1.17',
+    },
+
 };
 
 1;
diff --git a/misc/devel/coverage.pl b/misc/devel/coverage.pl
index 804fc8d..f41c921 100755
--- a/misc/devel/coverage.pl
+++ b/misc/devel/coverage.pl
@@ -22,6 +22,7 @@ coverage.pl
 
 =head1 SYNOPSIS
 
+You have to be in yout Koha/src directory
 ./misc/devel/coverage.pl
 
 =head1 DESCRIPTION
@@ -32,21 +33,14 @@ This script make a cover on all files to see which modules are not tested yet
 
 use Modern::Perl;
 use C4::Context;
+use Cwd;
 
+#Die if you are not in your Koha src directory
 my $KOHA_PATH = C4::Context->config("intranetdir");
+die "ERROR : You are not in Koha src/ directory"
+  unless $KOHA_PATH eq getcwd;
 
-chdir $KOHA_PATH;
-
-eval{
-	require Devel::Cover;
-};
-
-if ($@) {
-	say "Devel::Cover needs to be installed";
-	exit 1;
-}
-
-#Delete old coverage
+# Delete old coverage
 system("cover -delete");
 
 #Start the cover
@@ -54,5 +48,5 @@ system("PERL5OPT=-MDevel::Cover /usr/bin/prove -r t/");
 
 #Create the HTML output
 system("cover");
-
-say("file://$KOHA_PATH/cover_db/coverage.html");
\ No newline at end of file
+say("file://$KOHA_PATH/cover_db/coverage.html")
+  unless !-e "$KOHA_PATH/cover_db/coverage.html";
-- 
2.3.3