From e08fe2db378c641113b8e5b37cce573ffd6f8be7 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Tue, 12 Sep 2006 09:28:22 +0000
Subject: [PATCH] adding some package check

---
 misc/Install.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/misc/Install.pm b/misc/Install.pm
index 11a7641352..9fe765e437 100644
--- a/misc/Install.pm
+++ b/misc/Install.pm
@@ -904,16 +904,18 @@ sub checkperlmodules {
 		}
     }
     unless (eval {require LWP::Simple})       {
-		showmessage(getmessage('LWP::Simple'), 'PressEnter', '', 1);
 		if ($#missing>=0) { # see above note
 			push @missing, "LWP::Simple";
 		}
     }
     unless (eval {require XML::Simple})       {
-		showmessage(getmessage('XML::Simple'), 'PressEnter', '', 1);
 		if ($#missing>=0) { # see above note
 			push @missing, "XML::Simple";
 		}
+    unless (eval {require Date::Calc})       {
+		if ($#missing>=0) { # see above note
+			push @missing, "Date::Calc";
+		}
     }
 
 #
-- 
2.39.5