From 36965d7df83b25d0d484764be2271c21ed1b2f17 Mon Sep 17 00:00:00 2001 From: MJ Ray Date: Thu, 28 Feb 2013 15:47:27 +0000 Subject: [PATCH] Bug 9734 - String::Random is marked as optional, but C4::Members requires it jcamins confirmed on IRC it is not optional. To test: 1) perl koha_perl_deps.pl -a |grep String::Random 2) notice the "No" in the last column - it should be Yes 3) apply patch and repeat same steps, looking for Yes. 4) prove t/Installer_PerlModules.t # which checks String::Random is required Sponsored-by: software.coop Signed-off-by: Kyle M Hall Signed-off-by: Jonathan Druart Signed-off-by: Jared Camins-Esakov --- C4/Installer/PerlDependencies.pm | 2 +- t/Installer_PerlModules.t | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/C4/Installer/PerlDependencies.pm b/C4/Installer/PerlDependencies.pm index 41fa8db48c..83ba962776 100644 --- a/C4/Installer/PerlDependencies.pm +++ b/C4/Installer/PerlDependencies.pm @@ -631,7 +631,7 @@ our $PERL_DEPS = { }, 'String::Random' => { 'usage' => 'OpacSelfRegistration', - 'required' => '0', + 'required' => '1', 'min_ver' => '0.22', }, }; diff --git a/t/Installer_PerlModules.t b/t/Installer_PerlModules.t index f64ed85e28..c3ed715429 100755 --- a/t/Installer_PerlModules.t +++ b/t/Installer_PerlModules.t @@ -6,7 +6,7 @@ use strict; use warnings; -use Test::More tests => 15; +use Test::More tests => 16; BEGIN { use_ok('C4::Installer::PerlModules'); @@ -35,3 +35,4 @@ ok ($modules->module_count() >10 , 'count should be greater than 10'); my @module_list = $modules->module_list; %params = map { $_ => 1 } @module_list; ok (exists($params{"DBI"}), 'DBI exists in array'); +is ($modules->required('module'=>"String::Random"),1, 'String::Random should return 1 since required'); -- 2.39.5