From 065fc607088c62a58dc6a8b5e8faf0c169440be7 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 5 Mar 2012 19:01:37 +0000
Subject: warn if --allow-force, --allow-nodeps, --force or --keep is in use
 (mga#3127)

---
 urpmi | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'urpmi')

diff --git a/urpmi b/urpmi
index bd1520b2..f92f7c4d 100755
--- a/urpmi
+++ b/urpmi
@@ -595,6 +595,16 @@ foreach my $pkg (@to_install) {
 }
 $urpm->{nb_install} = @to_install;
 
+sub warn_msg {
+    my ($msg) = @_;
+    $urpm->{print}(N("WARNING: %s option is in use. Some strange problems may happen", $msg));
+}
+
+warn_msg("--allow-force")  if $urpm->{options}{'allow-force'};
+warn_msg("--allow-nodeps") if $urpm->{options}{'allow-nodeps'};
+warn_msg("--force") if $urpm->{options}{force};
+warn_msg("--keep")  if $urpm->{options}{keep};
+
 if (!$urpm->{options}{auto} && $ask_user && $urpm->{nb_install} || $env && !$options{debug__do_not_install}) {
     my $msg = $urpm->{nb_install} == 1 ? N("To satisfy dependencies, the following package is going to be installed:") 
 		: N("To satisfy dependencies, the following packages are going to be installed:");
-- 
cgit v1.2.1