From cfc3a22d9f0e6e5ead77c0bf465ecee38ee174af Mon Sep 17 00:00:00 2001 From: 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"; } } -- 2.39.5