From cfc3a22d9f0e6e5ead77c0bf465ecee38ee174af Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Thu, 15 Jul 2004 09:51:26 +0000
Subject: [PATCH] indentations modifs

---
 misc/Install.pm | 37 +++++++++++++++++++------------------
 1 file changed, 19 insertions(+), 18 deletions(-)

diff --git a/misc/Install.pm b/misc/Install.pm
index a07b37dbd3..70d5b3e2ac 100644
--- a/misc/Install.pm
+++ b/misc/Install.pm
@@ -845,32 +845,33 @@ sub checkperlmodules {
 # Test for Perl and Modules
 #
 	my ($auto_install) = @_;
-    my $message = getmessage('CheckingPerlModules');
-    showmessage($message, 'none');
+	my $message = getmessage('CheckingPerlModules');
+	showmessage($message, 'none');
 
-    unless ($] >= 5.006001) {			# Bug 179
-	die getmessage('PerlVersionFailure', ['5.6.1']);
-    }
+	unless ($] >= 5.006001) {			# Bug 179
+		die getmessage('PerlVersionFailure', ['5.6.1']);
+	}
 	startsysout();
 
-    my @missing = ();
-    unless (eval {require DBI})              { push @missing,"DBI" };
-    unless (eval {require Date::Manip})      { push @missing,"Date::Manip" };
-    unless (eval {require DBD::mysql})       { push @missing,"DBD::mysql" };
-    unless (eval {require HTML::Template})   { push @missing,"HTML::Template" };
+	my @missing = ();
+	unless (eval {require DBI})              { push @missing,"DBI" };
+	unless (eval {require Date::Manip})      { push @missing,"Date::Manip" };
+	unless (eval {require DBD::mysql})       { push @missing,"DBD::mysql" };
+	unless (eval {require HTML::Template})   { push @missing,"HTML::Template" };
 #    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 Event})       {
+	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::LDAP})   { push @missing,"Net::LDAP" };
+	unless (eval {require Event})       {
 		if ($#missing>=0) { # only when $#missing >= 0 so this isn't fatal
-		    push @missing, "Event";
-		}
+				push @missing, "Event";
+			}
     }
     unless (eval {require Net::Z3950})       {
-	showmessage(getmessage('NETZ3950Missing'), 'PressEnter', '', 1);
+		showmessage(getmessage('NETZ3950Missing'), 'PressEnter', '', 1);
 		if ($#missing>=0) { # see above note
-		    push @missing, "Net::Z3950";
+			push @missing, "Net::Z3950";
 		}
     }