From 9d0f3580bd0a332740af3e69ea7d93647916705b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Thu, 5 Apr 2012 17:37:24 +0000
Subject: do not crash if msec isn't installed

---
 perl-install/install/NEWS   | 1 +
 perl-install/install/any.pm | 1 +
 2 files changed, 2 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index c93f090a8..711f5a3a3 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,5 +1,6 @@
 - log install settings (mga#3467 & mga#5209)
 - do not set security level to its own value on upgrade (mga#5147)
+- do not crash if msec isn't installed
 
 Version 14.1 - 23 March 2012
 
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 8cd9159d5..957b57f30 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -1302,6 +1302,7 @@ sub disable_user_view() {
 sub set_security {
     my ($o) = @_;
     require security::various;
+    return if !-x "$::prefix/usr/sbin/msec";
     security::level::set($o->{security});
     security::various::config_security_user($::prefix, $o->{security_user});
 }
-- 
cgit v1.2.1