From e3c239b2511b4c32b1f085547f17cc66ec812f11 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Sun, 11 Sep 2005 20:12:11 +0000 Subject: check that required files are available once the package is installed --- perl-install/network/thirdparty.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'perl-install/network/thirdparty.pm') diff --git a/perl-install/network/thirdparty.pm b/perl-install/network/thirdparty.pm index 5426eab98..2e4d32f3b 100644 --- a/perl-install/network/thirdparty.pm +++ b/perl-install/network/thirdparty.pm @@ -438,8 +438,11 @@ sub install_packages { if (my @packages = $get_method->('get_packages')->($name)) { log::explanations("Installing thirdparty packages ($option) " . join(', ', @packages)); - $in->do_pkgs->install(@packages) and next; - warn_not_installed($in, @packages); + if (!$in->do_pkgs->install(@packages)) { + warn_not_installed($in, @packages); + } elsif ($get_method->('check_installed')->()) { + next; + } } log::explanations("Thirdparty package $name ($option) is required but not available"); -- cgit v1.2.1