diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt index a23d3b788..d81f8f9f4 100644 --- a/docs/changelog/7.x.x.txt +++ b/docs/changelog/7.x.x.txt @@ -14,6 +14,7 @@ - fixed: UserList templates use incorrect variable names - fixed: International characters in password prevents login - fixed: SelectSlider form control is broken + - fixed: testEnvironment.pl can't find WebGUI modules after installing a prerequisite 7.6.0 - added: users may now customize the post received page for the CS diff --git a/sbin/testEnvironment.pl b/sbin/testEnvironment.pl index 94267168e..80c7114f0 100644 --- a/sbin/testEnvironment.pl +++ b/sbin/testEnvironment.pl @@ -20,6 +20,7 @@ use strict; use CPAN; use Getopt::Long; use Pod::Usage; +use Cwd (); my ($os, $prereq, $dbi, $dbDrivers, $simpleReport, $help); @@ -335,7 +336,9 @@ sub getOs { sub installModule { my $module = shift; print "Attempting to install ".$module."...\n"; + my $cwd = Cwd::cwd; CPAN::Shell->install($module); + chdir $cwd; } #----------------------------------------