indentations modifs

diff --git a/misc/Install.pm b/misc/Install.pm
index a07b37d..70d5b3e 100644 (file)
--- 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";
                }
     }