gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

indentations modifs

This commit is contained in:
tipaul 2004-07-15 09:51:26 +00:00
parent 3e0a132171
commit cfc3a22d9f
1 changed files with 19 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
misc/Install.pm
View File

@ -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";
}
}