adding some package check

This commit is contained in:
tipaul 2006-09-12 09:28:22 +00:00
parent 467befee67
commit e08fe2db37
1 changed files with 4 additions and 2 deletions

View File

@ -904,16 +904,18 @@ sub checkperlmodules {
}
}
unless (eval {require LWP::Simple}) {
showmessage(getmessage('LWP::Simple'), 'PressEnter', '', 1);
if ($#missing>=0) { # see above note
push @missing, "LWP::Simple";
}
}
unless (eval {require XML::Simple}) {
showmessage(getmessage('XML::Simple'), 'PressEnter', '', 1);
if ($#missing>=0) { # see above note
push @missing, "XML::Simple";
}
unless (eval {require Date::Calc}) {
if ($#missing>=0) { # see above note
push @missing, "Date::Calc";
}
}
#