From af3c716b7dbe9e44719766593f6c51cf30a054e7 Mon Sep 17 00:00:00 2001 From: Dylan William Hardison Date: Tue, 26 Apr 2016 12:59:52 -0400 Subject: Bug 1251100 - checksetup.pl no longer tells admins which modules are installed and which version is installed --- checksetup.pl | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) (limited to 'checksetup.pl') diff --git a/checksetup.pl b/checksetup.pl index 32ef69d45..02264f6c0 100755 --- a/checksetup.pl +++ b/checksetup.pl @@ -18,7 +18,10 @@ use warnings; use File::Basename; BEGIN { chdir dirname($0); } -use lib qw(. lib local/lib/perl5); +use lib qw(. lib local/lib/perl5 .checksetup_lib/lib/perl5); + +# the @INC which checksetup needs to operate against. +our @BUGZILLA_INC = grep { !/checksetup_lib/ } @INC; use Getopt::Long qw(:config bundling); use Pod::Usage; @@ -58,9 +61,13 @@ my $silent = $answers_file && !$switch{'verbose'}; print(install_string('header', get_version_and_os()) . "\n") unless $silent; exit 0 if $switch{'version'}; -# Check required --MODULES-- -my $module_results = check_requirements(!$silent); -# Break out if checking the modules is all we have been asked to do. +my $meta = load_cpan_meta(); +my $requirements = check_cpan_requirements($meta, \@BUGZILLA_INC, !$silent); + +exit 1 unless $requirements->{ok}; + +check_all_cpan_features($meta, \@BUGZILLA_INC, !$silent); + ########################################################################### # Load Bugzilla Modules -- cgit v1.2.3-24-g4f1b