From a07e41f5ee9c5fbaeed1438e1af12cf1ec45e9c1 Mon Sep 17 00:00:00 2001
From: kenperl <kenperl@webgui-svn>
Date: Mon, 16 Jan 2006 06:45:28 +0000
Subject: [PATCH] fix the checkModule issue. I let testEnvirement.pl to install
 the modules missing in my system, after one missing module is installed and
 the checkModule() is called again to verify the module is installed,  but
 checkModule() exit even the install was success.

---
 sbin/testEnvironment.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/sbin/testEnvironment.pl b/sbin/testEnvironment.pl
index 01bae5a32..a3d324326 100644
--- a/sbin/testEnvironment.pl
+++ b/sbin/testEnvironment.pl
@@ -164,7 +164,10 @@ sub checkModule {
         printTest("Checking for module $module");
         my $statement = "require ".$module.";";
         if ($afterinstall == 1) {
-                failAndExit("Install of $module failed!");
+                failAndExit("Install of $module failed!") unless eval($statement);
+                # //todo: maybe need to check new install module version 
+		printResult("OK");
+		return;
         } elsif (eval($statement)) {
 		$statement = '$'.$module."::VERSION";
 		my $currentVersion = eval($statement);