From d11fb5906b19d7cf858b3803f37c6ff5dd8dc471 Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Tue, 4 Feb 2003 06:22:19 +0000
Subject: [PATCH] Check for Mail::Sendmail, for opac/opac-userupdate.pl (Bug
 105)

---
 misc/Install.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/misc/Install.pm b/misc/Install.pm
index 04c47c4b4d..7c46dc7a23 100644
--- a/misc/Install.pm
+++ b/misc/Install.pm
@@ -633,6 +633,7 @@ sub checkperlmodules {
     unless (eval {require Set::Scalar})      { push @missing,"Set::Scalar" };
     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 Net::Z3950})       {
 	showmessage(getmessage('NETZ3950Missing'), 'PressEnter', '', 1);
 	if ($#missing>=0) { # XXX why only when $#missing >= 0?
-- 
2.39.5