From adad6f530bcf92c6530ef034e34667c336533ced Mon Sep 17 00:00:00 2001
From: slef <slef>
Date: Mon, 14 Jul 2003 23:15:55 +0000
Subject: [PATCH] Adding test for Event module

---
 misc/Install.pm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/misc/Install.pm b/misc/Install.pm
index a3f4cd6211..8bf7b76424 100644
--- a/misc/Install.pm
+++ b/misc/Install.pm
@@ -694,11 +694,16 @@ sub checkperlmodules {
     unless (eval {require Digest::MD5})      { push @missing,"Digest::MD5" };
     unless (eval {require MARC::Record})     { push @missing,"MARC::Record" };
     unless (eval {require Mail::Sendmail})   { push @missing,"Mail::Sendmail" };
+    unless (eval {require Event})       {
+		if ($#missing>=0) { # only when $#missing >= 0 so this isn't fatal
+		    push @missing, "Event";
+		}
+    }
     unless (eval {require Net::Z3950})       {
 	showmessage(getmessage('NETZ3950Missing'), 'PressEnter', '', 1);
-	if ($#missing>=0) { # XXX why only when $#missing >= 0?
-	    push @missing, "Net::Z3950";
-	}
+		if ($#missing>=0) { # see above note
+		    push @missing, "Net::Z3950";
+		}
     }
 
 #
-- 
2.39.5